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PAG. 2 ACORN NIEUWS UIT DE FEDERATIE 


Bestuur: 
Voorzitter: 

N. Stad 
Plataanneg 47. 
1544 PB Zaandijk. 
Telt. 075-2806080 


Clubwinket: 

N. Stad 
Plataanweg 47 

1344 PB Zaandijk 
Telf. 875 - 268988 


Secretaris: 

N. Schone 

Sluispad 55-B 

4321 ET Woraerveer 
Telf. 875-2864624 


Hard-ware cie: 

P. Ehriteh 
Roostenlaan 266 
5644 B5 Eindhoven. 
Telf. 849 - 114183 


Contributie 1985: fl. 68,89 


Leden buitenland 
Biro 5244293 
Nuenen. 


Redactie ACORN NIEUWS: 


BANK 32. 
Beide t.n.v. Penningmeester Acorn computerclub. 


fl. 75,28 


84.69.818 


Rudí van Drunen -— hardware 

Hans Marks = software 

Henk Reinders - layout 
Ledenadainistratie: Datasheets; 
5. van Leeuwen 6. Akkeraans, 
Koapasstraat 32. Wikke 1 


1975 PX IJauiden 
Telf #2259-224550 


Uiterste datum inlevering 
NR 3. B - 3 = 1985, 


nr 8, 19 - 4 - 1985, 
NRS. 5-7 = 1985, 
NR 6. 16 - 8 - 1985. 
NR 7, 27 - 9 = (985, 
NR B. B - 11 - 1985, 


DE CLUB-WINKELs 


1273 BR Huizen, 
Teif 02152 — 68294. 


copy: 


Beheugenkaart; 16 kByte extra in de ATOM 


Schakelkaart; eeerdere EPRON's op Axxx (ínci.74LS133) 
Progranserkaart; zelf prograa 





Big Benny printjinct. Clock IC MSM S832RS 


Los IC MSM SES2RS 
Minischakelkaart 


Herdruk ACDRN NIEUWS 1982; 97 pag. wetenswaardigheden #1. 


Jaargang 1983; totaal ruim 459 pag. 


Jaargang 1984; 


ATOM-WARE deel 1} machinetaal op de ATOM 98 pag. 
ATOM-WARE deel 2} het diskdrive operatingsysten 68 pag. #1. 


Bestellen: 


Bij Uw regionale penning-serster. 
Rechtstreeks bij de federatieve penningeeester, dan 4l, 4.08 


extra voor porto-kosten. 


ren van EPROMS 





Penninga: 
Th, van Keapen. 

Het Puyven 71. 

5472 RB Nuenen. 
Telf. 848 - 636218 


Redaktie Acorn Nieuws. 1 
H.Reinders. 
Leeuwarderstraat 8. 
9718 HX _Erontngen. 
Talf, 658 - 125459 


Redactie adres: 
Postbus 1858 

97B8 BA Groningen 
Telt. 8358-123458 


Drukwerkarchief: 
F. Monsato 
Biesbosch 153 
8852 VD Zwolle. 


fl. 
tl. 
fl. 
#1, 
é1, 
éL, 


tl. 
+1, 
#1. 
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paa. 2 uit de federatie 

pag. 3 inhoud 

pag. 4 uit de federatie 

pag. 5 waar kunnen we naar toe 
pag. &- inteco 

pag. 18 = 13 hardware krankels. 

pag. 14 - 23 de diskrom. 

pag. 24 - 27 gags-spelletje burgertime. 
pag. 28 - 50 de simplex methode. 
pag. 31 de #lappy disk methode. 
pag. 32 = 55 inteligente disas. 

pag. 24 - 35 64 koloms edit. 

pag. 36 — Ai decados 


pag. 42 - 45 atan meets aquarius. 
pag. A6 - 48 de sprite en paint editor. 
paga. 49 - 53 de nieuwe mder rom 

pag. 54 - 67 salfaa 

pag. 68 - 69 gags-demo 

pag. 78 - 71 beststrap routine 


pag. 71 tip uit brabant. 

pag. 72 - 74 inputsubroutines 

pag. 74 cursor-statement. 

pag. 75 schakelkaart prablemen. 
pag. 76 - 77 regressie 


pag. 78 - 81 bbc basic ap de atom, 
pag. 82 - 83 lichtpen aan de atom. 
pag. 84 - 89 printer control code's 
pag. 20 intikken en runnen maar. 

tekenen. 

vaor de gagsram. 

space. 

breuken. 

kalender. 

braille, 

temperatuur. 

anagram. 
gag. 99 atam literatuur. 


ACOEN NIEUWS 15 een uigave van de fed. acern computerclubs n/b 
verschijnt & — 8 keer per jaar. 


De redaktie gaat er vanuit, dat ingezenden copij afkomstig is van de inzender, 
tenzij vitsrukkelijk is vermeld, 

Het is ondoenlijk voor elke inzending nate gaan ot het ontwerp uit een andere 
publicatie afkomstig 1e. 

De aansprakelijkherd 
inzender. 





r auteursrechten voor ingezonden copy ligt dus bij de 
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Aangezien KOOS OTTES een nieuwe baan heeft gekregen, waarbij hij enige tijd 
cursus moet volgen, heeft hij zijn bestuursfunctie moeten neerleggen. NICO 
SCHONE is zodoende als secretaris tot het bestuur toegetreden, terwijl NICO 
STAD als voorzitter zal fungeren. 

De leden administratie zal in het vervolg gedaan worden door SIMON VAN 
LEEUWEN. De adressen vindt U op pagina 2. 





De schakelkaart is momenteel uitverkocht en is alweer in bestelling. Wij 
verwachten dat deze eind april wederom leverbaar is, 
Ook is het tweede deel van ATOMWARE verschenen. Voor de prijs van f1, 5.090 
wordt U in &8 pagina's geinformeerd over de DOS-POM, 


Schijf nr 1. B5/2 
DISK-V1 2908 AFAF BAF3S 282 
DBOX-VI AG@B DEFF O1999 052 
BURTIME 2980 AFAF 21879 B52 
SIMPLEX 2988 AFAF @28Dé 07B 
Lois 2988 AFAF O@15FD QB4 
ED64 ABB ACFD DBIEMD 098 
SALFAA A@D@ AQIE D1AMG DAG 
DECADOS 29BB AFAF DBIJBA 258 
PAINTED 2908 AFAF @2CF5 BCA 
SPREDIT 2908 AFAF @3tiE OF7 
MDCR24R AQDD ADG@ B10D8 129 
SHITCH 2908 AFAF 81397 159 
GAGSDEN 2988 AFAF G89F7 14D 
LICHTP 2998 AFAF 828537 157 
BOOT-TR 2908 AFAF G073E 15D 
INPUT1 2900 AFAF 88515 165 
INPUT2 290% AFAF @O3F1 16E 
KALEND 2900 AFAF 80955 16F 
BRAILLE 2908 AFAF QADAF 179 
BREUKEN 2988 AFAF O05E1 187 
CURSOR2 2988 AFAF AGF? 180 


nr.2 blz 14, 
ar,2 blz 14. 
nr.2 blz 24, 
nr.2 biz 2B. 
nr.2 biz 32. 
nr,2 biz 34. 
nr.2 blz 54, 
nr.2 blz 36. 
nr.2 blz 46. 
nr.2 blz 46. 
ne.2 biz 49. 
nr.2 blz 54, 
nr,2 biz 68. 
ar.2 blz B2. 
ar,2 blz 78. 
nr.2 blz 72. 
nr.2 blz 72. 
nr,2 blz 95. 
nr.2 blz 95. 
nr.2 blz 92. 
nr.2 bìz 74, 


PPPPP>rPPPrPrrrrrrrrr 
EZERZEZELLERZERERZEZe 


Schijf nr 2. 85/2 


REGRESS 2988 AFAF 22268 882 A‚N. nr.2 blz 76. 
PFC-TLK AQ@9 C2B2 21900 057 A.N. nr.l blz &5, 
PFC-PCH 8208 AFAF 21072 D47 AN. nr.1 blz á5. 
PFC-AXX A@@B C2B2 @IRBÒ B58 AN. nr.l blz 65. 
GAGSDM 2920 AFAF 0AJ67 48 A‚N, nr.2 blz 21. 
TEKENEN 2908 AFAF GOSSE @6C AN. or.2 ble 98, 
BREAKd 2908 AFAF @B5IA 072 A‚N. nr.2 bla 14, 
INFOCO 8208 AFAF @lZ9D 78 A‚N. NRZ blz. &, 


Aangezien door een misverstand mijnerzijds niet de juiste programmatuur voor 
de Program Flower Controller op de schijt stond, nu alle drie versie's nog een 
keer. Excuses, 


WAAR KUNNEN WE NAAR TOE 


ACORN NIEUWS 


PAG- > 





7 MRT 1985 
28.38 UUR 


8 MRT 1985 
28.88 UUR 


3 MRT 1985 
18.38 UUR 


13 MRT 1985 
28,08 UUR 


15 MRT 1985 
28.20 UUR 


14 MRT 1985 
19.538 UUR 


19 MRT 1985 
20.38 UUR 


20 MRT 1985 
1 APR 1985 
20.88 UUR 


4 APR 1985 
20.30 UUR 


18 AFR 1985 
29.08 VUR 


11 APR 1985 
19.538 UUR 


1ì APR 1985 
20.88 UUR 


15 APR 1985 
12,98 UUR 


16 AFR 1985 
28,38 UUR 


17 APR 19B5 
28 APR 1985 
18.38 UUR 


26 APR 1985 
28.00 UUR 


Regio's die 
gestuurd. 


BRABANT GEBOUW B.R.A.N. 
HEUVEL 7 


DEN HAAG EXODUSKERK 
BERESTEINLAAN 265 


BELGIE 
BORSBEEKSE STEENWEG 45. 


TWENTE MEPA-GEBOUW 
WIERDENSESTRAAT 40 


CENTRUM DE LANTAERN 
UTRECHTSESTRAATWEG 4 


NOORD MUNSTERHDES 
MUSTERHEERD. 7 


BRABANT DE WERFF 
V/D WERFFSTRAAT 


NOORD M van VLISSINGEN 
ACHTER DE GROTE KERK 25 


ARNHEM 1.0. FOSTGIRG 
VELPERWEG 56-A (kelder) 


BRABANT 
HEUVEL 7 


GEBOUW B‚R.A.N, 
TWENTE MEPA-GEBOUW 
WIERDENSESTRAAT 40 


NOORD MUNSTERHOES 
MUSTERHEERD . 


CENTRUM DE LANTAERN 
UTRECHTSESTRAATWEG 4 


NOORD-H DE KOPEREN KNOOP 
VAN LIMBURG STIRUM STRAAT 


BRABANT DE WERFF 
V/D WERFFSTRAAT 


NOORD M van VLISSINGEN 
ACHTER DE GROTE KERK 25 


BELGIE 
BORSBEEKSE STEENWEG 45, 


DEN HAAG EXODUSKERK 
BERESTEINLAAN 263 


hier niet bij 


OXACO-CAPENBERGEENTER 


OXACO-CAPENBERGCENTER 


VORSTENBOSCH. 


DEN HAAG. 


(BIJ HOVEN 


BOECHOUT 


ALMELO. 


NIEUWEGEIN. 


GRONINGEN. 


EINDHOVEN. 


LEEUWARDEN. 


ARNHEM 


VORSTENBOSCH. 


ALMELO. 


GRONINGEN. 


NIEUWEGEIN. 


AMSTERDAM. 


EINDHOVEN. 


LEEUWARDEN. 


BOECHOUT 


(BIJ HDVE) 


DEN HAAG. 


vermeld staan hebben geen opgaven naar 


de redactie 
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“Laden op #82B8 (volledig basic). 

*de bediening van het programaa wijst zichzelf wanneer de volgende tips 

opgevolgd worden. 

Tgebruik "HELP* oe de commando's teleren kennen. 

“vergeet niet oa een nieune file te openen aet *“INIT*. 

=gebruik een siapele druk op "CR om een invoer te weigeren of om iets 
ongewijzigd te laten. 

"gebruik binnen “FIND” field @ en record “ALL" om het hele bestand te listen. 
gebruik “CTRL“ om hieruit te ontsnappen. 

="XTEKST>" betekent even geduld. 

="TEKST>* betekent druk op de spatiebalk, 

="TEKST{" betekent geef invoer. 

="TEKST?)" betekent geef “YES of NO. 

veen ‘piep’ is altijd een error. 

valle commando's mogen worden afgekort tot een letter, 


*Initialisatie advies: 

De fields zijn ingedeeld om een adressenbestand te voeren. Tenzij U de indeling 
veranderd (zie hieronder) is het misschien slim on ze de volgende namen te 
geven. 


LEDEN 
NAAM 
STRAAT 
CODE 
PLAATS 
TELEFOON 


*Àlle voor het aanpassen van het systeen relevante informatie is bij elkaar 
geplaatst in de regels 2018 t/m 2090, 

*regeì 2010 

=it dit is het startadres voor de database. 

Dit ís het eindadres voor de file. Geheugen boven dit adres wordt dsor het 
pregramma niet gebruikt. ‘U’ werkt dus als een soort protectie op hoger 
gelegen data. 
tet op. Dit geldt niet als het laden van een file van tape er de carzaak van 
is dat 'U’ overschreden wordt. Alle andere aktie's houden wal rekening met 
‘U, Inclusief het schoonmaken van een file m.b.v, "INIT”, 
=Y: Dit is het aantal fields dat een record zal bevatten (mag 1 t/m 7 zijn). 
Aldus geenablede fields moeten geinitialiseerd worden met de bijbehorende 
regels uit de greep 2020 t/m 2080, 

TW: dit ìs het aantal karakters dat de gebruikte printer op een regel zet, 
tegel 2022 t/m 2080. 

=DIM In: dit is de voor de naamstring van het field gereserveerde ruimte. N 
noet gelijk zijn aan GGI, tenzij GGI>8, want dan moet N gelijk aan 8 zijn. 
=661: Dit is de lengte in karakters van het betreffende field. hiervoor geldt 
dat het minstens 1 en maximaal 21 mag zijn. 

=Hoewel er niets misgaat als het niet zo is, verdient het met het ong ap 
hardcepy aanbeveling om ervoor te zargen dat de som van alle GGl's niet groter 
is gan W-9, 

vals G6I=4 gekozen wordt, neemt INFOCO bij het printen aan dat het hrereen 
humeriek field betreft, 

tRegel 2090 
Deze regel bevat de gebruikersnaam. Messtat zal hier de naam van een 
instelling staan. belangrijk is dat de lengte van de string 32 blijft. De 
string mag alle karakters bevatten met ASCII-waarden tussen #28 en WSE. 
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OREM INFOCO 11184 J.R.MARKS 

18P.$12; GOS. i 

202605. s 

COMMAND"; D. GOS. g3 U. 7E >13 

guIT”O. $C P.$12;E. 

INIT"D.$C="1";G. 180 

HELP“O. $C="H";G, 208 

ENTER"O. $C ;6. 300 

ALTER"D. $C="A"3G. 400 

DELETE "0. $ ";G. 543 

EIND"O.sC="f"3G. 600 

SORT"O. $C="5"; G. 700 

PRINT "0. SE ;6. 800 

READ”O. SC: ;6. 744 

WRITE“O. $C ;6. 1200 

UNKNOWN COMMAND";G-c 

10BET="DAY"; GOS. g3 DDE=V.C 

1051.DDO>310.DDAÁ1; ST="NUMBER 1-31";G0S.e; 6. 100 
1105T="MONTH"; GOS. q; DDI=V.C 
11SI.DD1>120.DD1<1;3$T="NUMBER 1-12";G0S.e; 6. 110 
1204T="YEAR"; GOS. g; DDZ= (VC) 4100 
12SI.DD2<1; 1. ?C4>48; $T="NUMBER"; GOS. e; G. 120 

1EOF. I=1T. 13 $T="FILENAME"; GOS. g3 I.L.C>18;V=10;G. j 
L4ON. 3 1. 042433 EN=Cj I.LeN<183D. ENtLeN=" "zUrLeND9 
14SF. I=iT. Ys $T="FIELDNAME"; ?(14352+#80C9) =51; 608.35 
1501. ?0<>13; SFEI=C}I.L.CHGGI O.L.C>8;G.k 

1552 (I4E2+#8RCT) =32jN. 4 ST="CLEAR FILE?";GOS.f; 1. ?C=78; Ga 
1&D&T="€ WAIT PLEASE";GOS.d;R=0;M=0; F. I=Z T‚U-45.4; !I=#20202020 
170N.;ET="FILE EMPTY";GOS.d;LI.P;G.a 














































2408=12;P.$30'"'""SD'ENTER — ADD RECORDS" &Z+X MAX 
ZIUP.ED"ALTER — EDIT RECORDS” 'SD"DELETE — ERASE RECORDS" * 
220P.ED"FIND — SEARCH FIELDS"'$D"SORT —= SORT FIELDS"* 
230F.ED"PRINT — HARDCOPY FILE" '$D"INIT — OPEN FILE" 
ZAOP. ED"READ — LOAD FILE"'$D"WRITE — SAVE FILE"’ 

250. $D"QUIT — STOP"‘;LI.F;G.a 


SOOR=M+1 jz A=XHRHZEK Lj I1=?Aa #77 

3101. As=Us$T="PROTECTED MEMORY"; R=M;G.c 

320?A=ls 1, PAS>I;$T="NO MEMORY"; R=M; 6.0 

Z3OM=Kj AzA-X+13F. I=iT- Y; ST=FFIG GOS. gj J=L.C 

SADE. I=15 1, ?C=135 zN- zMeM- 1; R=M; Geb 

3501. J>GGI; V=GEI;JG. j 

3&ED. CT 232; J=Jt1; U. JGB; F.J=0T.GEI-1; A?JC? JN. sAZA+GEIJN. 
378G0S.s; G. 208 

400I.M=0;$T="NO RECORDS TO ALTER"; G.cC 
418£T="RECORD"; GOS. gj 1. ?C=135 5. b 

42BR=V.C; I.RS1O.R>M; ST INKNOWN RECORD";GUS.e;G. 418 
430G0S. sj A=XR+ZjF. I= T.Y;$T=FFIj GOS. gj Jet. C; 1. J>EGI; V=GGI; B. j 
4501. ?C>134D. J2E=323 JeJ1j U. JDEGIjF.J=OT. GEI-13 A? J=CPIJN. 
4&0A=A+GGIjN. ; GOS. 5; G. 410 

5UOI.M=0;$T="NO RECORDS TO DELETE"; G.c 
518sT="RECORD": GOS.g; 1. ?C=15; Gb 

S2OR=V. Ci IL. RS1O.R2M3 $T=" UNKNOWN RECORD"; GOS.e; 6.518 
S30GOS. sj A=XtR+Z; ET="DELETE GOS. f; 1. ?C=78;6. 510 
SSBE=X4M+IjF. I=A T.B 5.45 !I=1!XjN. jMeMe1j L. R>Mj R=M 
S60GDS.s; ET="RECORD DELETED"; GOS.d;LI.P;6. 510 

NO RECORDS TO FIND";G.c 
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&68SST="FIELD";GOS.g; F=V.C; 1. ?C=15;G.b 

&181.F=@; 1. ?C=485G. 650 - 

&ISI.F<1G.F>Y; ST="NUMBER @- “;GOS.1;G. 685 

628$ STRING"; GOS. g; DIMZZ- OD; 1.?C=15;G. 685 
&25A=1;1.FD1;F. I=iT.F-1;A=A+GGIjN. 

&30D. B=B+1; A=A+Xj Hel; F.J=OT.L.C-1; IE. CPJCDAP Iz HED 

&3SN. ; 1. H;G=G+1; Z26=B 

64QU. B=M; 1. G=0; $T="NOT FQOUND";GOS.d;LI.P;G, 620 
&4S5F.H=1T.5; T="FOUND";GO05.d;LI.PjN. ;G. 620 
650ST="RECORD"; GOS. g; I. ?C=133G. 605 

6351. $C="ALL"O, SC="A";G. 670 
&6DR=V.C; I,R<C10, R>M; ST=" UNKNOWN RECORD"; GOS. e; G. 650 
6&&SGOS.s; 6. 450 

678$T="LIST"sF.R=E T.M; GOS. 5; GOS. d 

675$128=";D. KEYK; U. K=520. 7#ROD1k64=0; G. 688"; 'S=120 
6&8BI.K< 32; R=M 

&B5N. ;R=1; 6. 650 

700I.M<2;ST="NO RECORDS TO SORT";G.c 

71Q8$T="FIELD"; GOS. g; F=V.C 

7281.F<10.F>Y;ET="NUMBER 1- ";G0S.1;6.710 

725sT=" < SORTING“;GOS.d;@=35 

750D.H=D; S=H; I.F>1;F. I=1T. Fi; S=S+GGIjN. 

740F. J=M-1T. 18. -1;A=ZtXeJj G=At „K=S T‚GGF-1+5 

75@1. A?K>G7K; BOS. q; HeH+1;G. 760 

7551. A?K=G7KjN. 

76ÔN.J;P.S1SHjU.H=0; $T="FILE SORTED";G0S.d;L1.P;G.a 
76SaF.L=BT.X-1; BEA? 5 A?L=6?L5 GPL=BN. ;R. 

8OAP. $21$2; 505.880; P. '';F.I=1T.W/2-5;P.S3ZjN. PEN" 
818e=0; P. DDB" /"DD1"/"DDZ" " 

828F. I=iT.Y;P.SFFI;F OT.GGI-L.FFI;P.$352jN. iN. ; Pe" zA=ZtX 
BSF. I=1T.M;@=3j P.I" @ „J=1T.Y 

8481.GGJ=4; F.L=OT. 55 L?120=APLiN. 3 ?132=135;P.V. 1285 G. 840 
BSAF.K=DT. GE -15P. SAPK;N. 

B&DP." ";A=A+BEIIN. ;P. 'jN.;5P. "“';G0S.890;P. $346; 6. b 
889GOS. 890; F, I=IT.W/2-16;P. SSN. ; PSE" 

890F. I=1T.W;P. iN.5P. ;R. 

POEST="< LOADING"; GOS.d; FP. 1E; I=X 

910X=128; 'X= X+16; x!Z=Z; x>a= X5SX+IGENs LI. HFFEO 
P20M=!ZjR= 20202020; G. a 

1890$T=" < SAV ING”; GOS. diP.$15; Zen; leX 

1O10X=128; !'XeX+ibs;X!2=ZsX!b=ZjX!BeZtI+14M#IG SX+16=N; LI. #FFDD 
1@20X=1; ' 22420202020; 6. a 
2000i DIMDD2,NIA,FF7,GG7,T32,C3Z,E22,032,D3Sj Reij P=HFFES 
20107=#2900; U=HOADD; Y=5; W=BE 








































2020DIMIS;FF1=1;GGl=16; 41 
205ODIMIS;FF2=1; 662221; $1 
204BDIMIJ;FFS=1;G63=7; €1 





205ODIMIS;FF4=1;GG4=154$ 
2060DIMIB;FFS=1;GG5=12;% 
207GDIMID;FF&=I;GG6=0; 41 











208800IMIO;FF7=1;GG7=0; $I= 
209BEE=" "ACORN COMPUTER CLUE NOORD: * 
Z10BX=D;F. IST. Y; KEX+GGIjN.GEN="  INFDCU * 


2AB5M-A.MA10DD: 1. ° ZL: W20202020; M=D 

2185F, I=OT. 31; 07I=E?1+96; 1.E?1>635;071=E?1+22 
2187N.;0732=1 5: I.M=D 
211BF. I=BT.X-1; 271 
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2120$D=" #"';D2SZ=l1jR. 
30aasP. #30; #E1=0;P.$0; GOS. uz Pe "HH EN mr HH 
3010 '#904B=! #ODAB: HBOBUBLED; ! HEDAF=! HEOAF : HEDBDEDOO 
3015! #8053=! #8053: #8A80; GOS. n; GOS. U 

3020P. $D" >"; GOS. u; GOS. r; P. SO; R- 

SOLBUP "HH"; Re 

LUDO 2-32 P.Rj A=REX+IGF.J=iT. Yi; P. SDEFF JT; 7#ED=10 

6B20F. 1=0T. GEI-1;P. SAP IJN. ;P. 3 A=A+GG EN. 
LO3AI.YL7;F. I=Y T.63P-ED'jN. 





&O4DR. 
7BOENP.$M/12D+144EML100/18+1448M/L10+144;R. 
808BJP.$3B' \'sDET" R. 






9090GGOS. d; P. "<";$128 
90102 1.K>31z I.KC>127; Ie Lt. TC29; P. SBSK"C 
90201.K=1273 1. L>DjL=l-1;P.SBEK" "$B 
9R3CWAIT; WAIT; WAIT;WAIT;WAIT;WAIT;WAIT;L20=15j U. KelSjR. 
ADD. BOS. g5 U. SC="YES"O. $C="Y"O. $C="NO"O. SC=YN" GR. 
10000eP. #7; GOS. dij LI. P;R. 

10010CGOS.e; G.b 

10029kVv=8; 1. GGI<V; V=GGI 
10030iST.V,C; ?T=32; 520; 1. VL10; 5=1 

190408T+5=C;$T+2=" CHARACTER"; 1. VI; ET+L. T="S" 
19058GOS. e; I=1-1jN. 

100601 T79=Y+48; G.e 


;D.KEYK; U. K;G.z";L=0jD. '5=128 
zC?L=Kj Let 





N.B. 

DUSgebruikers dienen in zowel regel 918 als regel 1818 voor 
de ‘LINK’ toe te voegen ’X723=155'. 

Ook de regels 3022 en 5008 verdienen enige toelichting. 

De hier afgedrukte karakters leest U als volgt: 


‘+’ 1 geinverteerde SPC $128 
‘+’ 1 geinverteerde ‘>’ #158 
‘am’ : geinverteerde -' $141 
"t° 1 geinverteerde '<° $156 


Nu zult U zeggen dat is nu wel leuk en aardig maar hoe krijg ik 
die dingen in mijn listing? 

Dat is echter tamelijk eenvoudig. 

Voer eerst ge regels in met op de plaats van de probleemkarakters 
een '?' of iets dergelijks. 

Daarna list U een van de regels en tikt: 

P.$128" "$14t" "156" "$158' 

Nu loopt u met de [COPY] toets over de regel heen. 

Zodra U daarbij een '?' tegenkomt copieert U die niet, maar 

U verplaatst de cursor naar de plek waar het benodigde karakter 
op het scherm staat. 

Daar drukt U op [COPY] en het enige wat U nu nog rest is 

terug te gaan naar het volgende karakter in de regel. 

Hierna wordt de rest van de regel op de zelfde manier behandeld. 
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HARDWARE KRONKELS 
bankselect 64 K & 16 K kaart met DOS 
Allereerst enkele afspraken die noodzakelijk zijn bij deze modificatie. 


1- de schakelkaart, de 16 K kaarten en de DOS kaart komen 
buiten de ATOM kast. 
Dit moet gewoon omdat er voor twee eurokaarten gewoon geen 
Plaats is in de kast. 


2- Wanneer u een 64 k kaart heeft blijft deze uiteraard in de 
ATDM-kast. 


De in de handel verkrijgbare 64 k kaarten bestaan meestal uit 2banken van 32 k, 
Dit koat in onze ATOM neer op twee banken van #200@ tot #7FFF. Bij het 
overschakelen van de ene bank naar de andere moeten we op en aantal punten 
letten. 


á- de zero-page zal moeten blijven bestaan i.v.m, de brood- 
nodige informatie en vectoren. 

b- de op #1802 aanwezige schakelsoft moet aanwezig blijven, 
{ het lijkt, gezien het aantat systenen die dit gebied reeds 
gebruiken, een goede suggeatie dit gebied landelijk daarvoor 
aan te wijzen } 


Het nu volgende figuur zal eea. verduidelijkens 


ie rn | . 
schakel 2000 2000 
soft 
8000 8000 





De adressen Al5,A14 en A13 bepalen de grens <#2002 of >#2209. 

Als een van deze adressen dus actief,hoog wordt{i),is het geadresseerde adres in 
ieder geval >#2008. 

Door nu deze adressen samen te voegen in een OR-poort zal indien een van de 
adressen hoog wordt de uitgang van de poort ook hoog worden. 


Fig.2 


Ais 4 1 
Rs An 1 4 é 
an z As 1 
Ais 


Us pers a} 
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Voor het omschakelen van de ene naar de andere bank hebben we een bank schakel 


bit (BSB) nodig. 
We kunnen hier eenvoudig weg een schakelaar voor nemen maar ik heb voor een 
software matig BSB gekozen. Zodat het dus mogelijk is in een programma om te 


schakelen om b.v. data uit de andere bank te haten. 
Voor BSB het ik een bit van het schakelbyte #BFFF gekozen en weì het hoogste 
bit, bit 7. Dit bit werd tot nu toe gebruikt om de gestapelde RAM's op #E3G8 ( 


#1099 ) te selecteren. 
Door nu het B5B en onze vorige OR-poart te ANDen krijgen we devogende situatie: 


ALS 
aid E BSS 
A13 


BSB 





Fig.3 





Uit de tabel kunnen we afleiden dat alleen wanneer een van de adressen heog is 
en de BSB hoog is het bank select: signaal hoog wordt, Dit bank select signaal 
zullen B5S noemen. Dit BSS verbinden we met de B ingang van de 64 k kaart. 

Deze modificatie is dus alleen maar zinvol als u een 64 k kaart heeft en 
softwarematig wilt schakelen tussen de beide bank's. 


Hoe verwezenlijken we dit in de praktijk? 
Allereerst iets over het BSB ( bit 7 van HBFEF ). Dit signaal moet terug van de 


schakelkaart naar de ATOM-kast. Door de lange afstand tussen de kaart en de kast 
is het verstandig om dìt signaal te bufferen. Dit Kan met een nog vrije peort 
op de schakelkaart, de pennen 18 en 11 van IC.2 ( 74LS14 ), Daarna via b.v. pin 


2 van de bus, die ook nog vrij is, terug naar de ATOM. 
Het uiteindelijke schema met de nodige verbindingen ziet er als volgt uit: 


Fig.4 Hyves 









BSB u io 
BT 
#8ere Teus te / nn CemMEctog PL6/} 


NAAR PIN 2 vin bus 


BIT P VAN HBFEL 
achulfend 


Het nu volgende deel is voor 64 K en 16 k kaart gebruikers van blang als deze 
het DOS gebruiken. 
Enkele belangrijke punten: 


i= DOS controiter op #8A00 — #0A7F 
2- schakelbyte ABFFF 

3- toolkits HADED — KAFFF 
â- DOS — ROM HEGBE -— HEFFF 
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Voor het naar ‘buiten” brengen van de adressen onder de punten 2, 3 en 4 is de 
‘spin’ op IC 23 verantwoordelijk ( zie schakelkaart documentatie }). Met het 
naar buiten brengen bedoelen we dat de bus - buffer, IC.4, wordt ‘aangezet’ 
zodat de data via de buffer naar de buitenwereld kan gaan. de scheaatische 
voorstelling van de ‘spin’ is als volgt: 





: u F guis. 
Fig.5 Beer jo Furs4o of 3 o 







A1 





bus enable 


* 


“Dus niet NBFFF maar #RCXX wordt buiten de bus gebracht omdat #BFFF niet in onze 
ATOM wordt uitgedecodeerd. Het #XFFF gebied wordt dus op de schakelkaart verder 
uitgedecodeerd. In een OR-poort uiteindelijk het uiteindelijk #BFFF verkregen, 
Dan houden we #@A09 tot #8A7F over. 

De bus moet cok hier nu voor worden opengeset doordat we een aantal decoder ic 
kunnen laten vervallenthierover straks meer) 

Tevens zal het geheugen uitgezet moeten worden i.v.m het zogenaamde “dubbel 
parkeren”. 

De decodering voor dit adres gebied zit al op de dos kaart.we kunnen dit echter 
niet gebruiken omdat dit te ver buiten de kast zit en er timing problemen 
ontstaan als we dit signaal terug voeren binnen de bus om daarna de bus weer 
open te zetten. 

We zullen dus dezelfde decoder na moeten bouwen alleen dan binnen de kast van de 
ATOM. 

Door daarna het signaal samen met het Signaal van de “spin“ weer te anden 
krijgen we het signaal bus enable. Een en ander is is in het volgende figuur 
getekend. 

Dit signaal (bus enable) gaat dan naar pin 9 van IC4 deze pin moet uit de voet 
gehaald worden. 


Fig.b „+5V 





vi petsoê 






bus emable 


Pin 3 


IC YW Pin UiT voer 
halen. 





er SET O be k/b k 
kanat 
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Het signaal #QAXX gaat tevens nar de C ingangiselect) van de 64k kaart zodat 
deze wordt uitgezet als de doscentroller wordt geactiveerd, 

De 1ék kaart heeft niet zo'n select ingang dus zullen we die moeten maken. 
Allereerst moet zo'n tweede lk kaart natuurlijk worden aangepast voor het adres 
gebied van #@-#IFFF zoals al eerder werd beshreven in Acorn Nieuws nr.5 2e 
jaargang. 

Dit staat op de bladzijden 42 t/m 42. 

Hoe maken we een select ingang op de lék kaart? 

We zuilen dus op een of andere manier het signaal #@AXX ook naar de tweede 1ék 
kaart moeten brengen. 

Als we het schema erbij pakken blz 
het een en ander verduidenlijken. 
Verwijder de jumper bij poort N7 waarbij "tijdelijk" staat. 

Verbind nu via een vrije connector aansluiting of gewoon met een draadje het 
signaal #OAXX (pin 14 74LS38 Dos kaart) met poort N7 pinnen 5 en 6. 

Er zijn een aantal vrije pennen op de via connecter bus al: 

pin 2 (die wordt gereserveerd voor bankselect) 

pin 23,pin 24,pin 27 en pin 31 

Haal op de t6k kaart de volgende pinnen uit de voeten: 


2/63 Acorn Nieuws nr:l 3e jaargang kunnen we 





1) pin 4 poort N7 dit is ic 13 
2) pin 5 van ic 14 (74LS138) 


en leg nu tussen deze twee uitgebogen pootjes een draadje... 


Wat hebben we gedaan ? 
Wel,ais nu het #2AXX signaal komt (low actief) werdt dit deor poort N7 
geinverteerd ( het wordt dus high) en aan de enable ingang van de decoder gezet. 


Deze ingang moe low zijn voor het aanzetten, dus zat nu uitgezet worden en het 
geheugen ís gedisabled. 

En zie hier is een select ingang ontstaan. 

De decodering voot #Axx en de rest van de poortjes zijn gestapeld aangebracht 
op gen aantal IC's in de buurt van de bus buffers op de print. 

Kier zitten namenlijk alle data en adres touwtjes zodat de verbindingen kort 
gehouden kunnen worden. 

IC Sk& zijn ook uit de print verdwenen (zie artikel over ombouw lek kaart) zodat 
vok hier met een tussen voet een tweetal ic’s zijn te plaatsen. 

Rest mij u nog veel succes te wensen met de nabouw van het een en ander,bij 
eventuele problemen kunt u gerust bellen. 


UIT DE CLUBWINKEL 


MINISCHAKELKAART 


DE GOEDKOOPSTE MANIER OM 
OP #AZGB TE SCHAKELEN 


PRIJS Fl- 146. SD 
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2 — Inleiding 


De DISKROM is een &k-eprom, die een aantal handige uitbreidingen bevat om het 
diskgebruik te vergemakkelijken, De bedoeling is, dat de diskrom geplaatst wardt 
in een van de voetjes in de schakelkaart, Voor diegenen die geen schakelkaart 
bezitten, maar wel voldoende geheugenruimte is het ook mogelijk om van de 
diskuitbreidingen gebruik te maken door middel van de speciaal voor dit doel 
aangepaste source (zie punt 3), 

De meeste rautines in de diskrom zijn geschreven daar ondergetekende, echter 
bekende utilitie's als Format, Infsll en Compact zijn enigstins in gewijzigde 
vorm overgenomen. Mierbij bedank ik iedereen die mij bij het samenstellen van 
deze rom van advies gediend heeft, met name Henk Reinders en Henk van der 
Heijden. 

De diskrom j& onder te verdelen in twee delen: 


1, Een uitbreiding van de BASIC-statements 
2. Een uitbreiding van de comaand line statements (rl 


Na veel wikken en wegen is voor deze kombinatie gekozen. Er zijn namelijk een 
aantal vaardelen aan verbonden als men de Command Line Interpreter (CLI) 
gebruikt om statements af te merken, Om te beginnen 1s de herkenbaarheid groct: 
men weet Úarekt dat het kommando betrekking heeft op het Disk Operating System. 
Een ander voordeel is dat de voorhanden zijnde DOS-routines kunnen worden 
gebruikt, dit in tegenstelling tot BASIC-statements, Om een voorbeeld te noemen: 
bij BASIC wordt altijd geïnterpreteerd met LOA (NQSI,Y en in de CLE met LDA 
$12B,Y. Als er nu een '#' voor het kompando staat kan men dus ook die 
DOS-rputines gebruiken die interpreteren met LDA #1B2,Y. Een ander voordeel is 
dat er met dezelfde syntax als in de standaard Acorn DOS-rom gewerkt kan worden, 
hetgeen het gebruik overzichtelijker maakt 

Natuurlijk zijn er pok nadelen aan het werken met een tweede CLI 1aterpreter 
verbonden. Ten eerste zal altijd de CLI-vector (8286,#297) veranderd moeten 
worden. Normaal staat deze op adres #E3ES (in de DOS-rom). Deze nu zal naar het 
beginadres van de interpreter van de diskrom eaeten wijzen. Met gebruik in een 
Schakeikaart vereist dat de goede box voor moet staan. Daarom is in de dishram 
een routine opgenomen die zichzelf kopieert naar RA en vandaar de goede box 
opzoekt bij het binnenkomen van de CLI, Bij het verlaten van de diskrom wordt de 
oorspronkelijke box weer voorgezet: het is dus mogelijk om vanuit ge editor de 
Standaard DOS-routines uit te voeren. lie voor een gedetailleerde beschrijving 


punt 3. 
Over de namen van de statements het volgende. Er is gekozen voor namen, zoals 
die in de BBC-computer voorkomen, Dit is gedaan om standaardisatie an 


Acerntormaat te kontinueren, Statements die ìn de Disk Filing System (DFS) van 
de BBC voorkomen zijn: 

*ACCESS, #BACKUP, #BUILD, #CDMPACT, #COPY, #DESTROY, #DUME, #ENABLE, #HELF, 
*LIST, #RENAME, #TYPE, sWIPE. 

Oo het BASIC-statgment “CHAIN" behoort tot de BBC-BASIC, 


2 — De uitbreidingen. 


2.1 De BAS5IC-statements 


CHAIN "filenaam” CH. 
Met ge opdracht CHAIN “#ilenaam” kan er vanuit gen BASIC-prigramme een anger 
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BASIC-pragramma geladen worden in dezelfde tekstpagina en daarna meteen gerund 
Voordat het programma gerund wordt, worden eerst de dinpointer (R23,#24) en TDP 
(#0D,#BE) goed gezet. Net als bij FIN en FOUT is het mogelijk om de filenaam in 
een string te zetten. In tegenstelling tot LOAD $A wordt CHAIN $A wel 
uitgevoerd. Met name bij het maken van een serie programma’s die vanuit een 
hoofdprogramma cpgercepen worden, is dit statement erg handig. CHAIN werkt ook 
met het Cassette Operating System 





DISK DI. 
Met dit statement wordt eerst het DOS en tevens de Cll-vertor geïnitialiseerd 
vsor het gebruik van de extra statements. Deze routine moet alleen gebruikt 
werden door diegenen, die geen bootstrap gemaakt hebben of een aangepaste 
resetroutine (BREAK) gebruiken. Zie voor verdere informatie punt 3 


FCOS FC. 
Dit BASIC statement is bekend uit de Josbox en zet alle poorten en vectoren goed 
om een fìle te laden of te saven met 1288 baud op de cassette. Nadat het laden 
af saven beeindigd 15, wordt het DOS en de diskbox weer geinìtialiseerd. 

De wijzigingen zoals vermeld in Acorn Nieuws nr,3-5 zijn in de FCOS-routine 
verwerkt, 


2.2 CLI commando'st 


KRACTESS (<LD) (Kdrived) A. 
Met #ACCESS (drive?) worden alle files op de diskette “geunlocked” en met 
*ACCESS Lt (driver) worden alle files "gelocked", In wezen wordt hetzelfde 
uitgevoerd als *(UN)LOCK <filenaam> uit de DOS-rom 


BACKUP (Sdrive> <drive>) (Kbeginadres> <eindadres>) *BÂ. 
Om «BACKUP te gebruiken moet er eerst een #*ENABLE gegeven worden. 
Met #BACKUP <return> wordt een hele schijf gekopieerd sector bij sector. De 
defaultwaarden zijn zoals ze bij alleen een <returnò gelden: kopieren van drive 
@ naar drive @ in het buffergebied #2400 tot #6709. Dit betekent dat de schijven 
zes keer verwisseld moeten worden, Het is cok magelijk om middels de instruktie 
KBACKUP @ B 2400 7408 in vijf keer wisselen een disk te kopieren. Immers er 
worden dan 80 sectoren tegelijk gekopieerd, Voor diskgebruikers met twee of meer 
drives is het natuurlijk ook mogelijk om te kopieren van drive ® naar drive \ of 
omgekeerd, of van drive 1 haar drive 3 etc. Er kan dan bijv. de instructie 
*BACFUF 0 1 gegeven worden.Als er na het opgeven van de drives geen <return> 
gegeven wordt, moet het buttergebied opgegeven worden met bijvoorbeeld: #BACKUP 
0 t 2509 4200, Oregenen die geen 1&K-kaart bezitten kunnen dit programma dus ook 
gebruiken door net buffergebied #2300-#4008 te kiezen. Er moet dan wel 15 (11 
keer van schijf verwisseld worden bij het ontbreken van een tweede drive 
Samenvattend zijn er dus de volgende mogelijkheden: 
* BACKUP 
kopieert in drive ® in het gebied 2400-4700 
*BACFUF Sdriver “driver 
kepieert van ene drive naar andere in buffergebied 2402-6700 
YEACKUF Zgrive> “drive? <buffergebied? 
kopieert van de opgegeven drives binnen de gegeven buffer 


“BUILD <fitemaam>d +*B. 
het het commando #BUILD {filenaam> kan er een tekstfile gekreeerd worden, die 
afgesloten dient te worden met een control-D of met het ASCIl-karakter #7D (een 
geinverteerde teksthaak), gevolgd door een return, Met #EXEC (filenaam) kan de 
tile geexecuteerd warden, waarbij de computer de verschillende opdrachten 
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uitvoert. Met sTYFE <filenaam)> kan de file gelezen worden. 





“COMPACT (<drived) «CC. 
Met het statement #COMPACT (Xdrive>) worden de “gaten” op de diskette opgevuld, 
Alle files op de schijf worden netjes achter elkaar op de schijf gezet. Vooral 
op schijven waar veel files weggehaald zijn, worden niet altijd alle sectoren 
gebruikt voor data-opslag. Alle files worden geladen in het geheugengebied 
#2C00-#SBFF 


“COPY (<drive> <drive>) <Cfilenaam> *CoP. 
Met #COPY <drive> Xdrive) <filenaam) wordt er een file gekopieerd. Indien de 
drivenummers gelijk zijn wordt er gewacht totdat de schijven verwisseld zijn. De 
tile werdt geladen vanaf #2908 maar alle #ilespecifikaties worden uiteraard 
meegekopieerd. Dok tekstfiles, eproms en random access fìles kunnen gekopieerd 
worden, 

Als er #COPY <drive> <drive> Creturnd ingetikt wordt, kunnen alle files op een 
bepaalde schijf gekopieerd worden. Bij iedere file wordt er gevraagd of deze 
gekopieerd moet werden. Uiteraard wordt als er hetzelfde drivenummer gegeven 
wordt, gevraagt oa de schijven te verwisselen.Met 2COPY <return> wordt er 
gekopieerd in drive B. Dit is hetzelfde als +CDPY 8 B. 

Het programma kan op ieder gewenst moment onderbroken worden met de 
escape-toets, Files die met #COPY gekopieerd zijn, zijn noait gelocked. 


*DCAT (drive>) *. 
*DCAT (Cdrive>) geeft een driekotoms katalogus met aanvultende informatie over 
het drivenummer, de qualifier, het aantal programma's, de option voor de 
baotfile en het aantal vrije sectoren. Als een schijf vol is — 31 files of alle 
sectoren gebruikt - wordt dit aangegeven met de mededeling "DISK FULL”, 


“DESTROY (<drive>) DE. 

Om #DESTROY te gebruiken moet er eerst gen +ENABLE gegeven worden, 
Met +DESTROY (Xdrive>l kunnen alle programma's verwijderd worden. Uiteraard 
blijft de data op schijf staan, maar in de catalogue staan geen programma's 
neer: de schijf is leeg. Enige voorzichtigheid ís hierbij geboden. Mocht men 
achteraf spijt hebben van de gedane opdracht dan is dit te herstellen met een 
peek en poke-grapje, 
Met een hexdump wordt het aantal programma’s geteld vanaf #2898 na een #(D)CAT 
gegeven te hebben. Dit getal wordt vermenigvuldigd met 8 en in #2105 gezet. Dan 
tikt men in: 

210S=prag. +8 

LINK #£75B (zet motor aan) 

LENK #E74A (save cataloque) 
en het geheel is weer in de oude staat gebracht, 


“DUMP <filenaam> DU. 
Met #DUMP <filenaam> wordt er van een file een ASCII en hex ecimale dump 
gemaakt. Zie verder bij #LIST en #+TYPE. 


HENABLE zE. 
Net #ENABLE worden de kommando's #BACKUP, #DESTROY en «FORMAi toegankelijk 
gemaakt voor de diskgebruiter. Dit cm rampzalige gevolgen van tikfouten te 
voor komen. 

“FORMAT (<drive>) «F. 
Om #FORMAT (Zdrive*) te gebruiven moet er eerst een sENABLE gegeven worden 
Formatteerprogramma voor“-ai1 40-track“-e:D diskettes 


+HELP *H, 
Met SHELP worden alle standaard DUS-bommande's en de extensions uit de diskrom 
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uitgeprin N 


#INFALL {<drive>) «*I. 
HINFALL (drive) geeft informatie over alle files op een disk omtrent he 
executie-adres, beginadres, lengte van de file en de beginsector van de fil 


Ce INFD) 


*LIST <filenaam> «LI. 
Met #LIST (filenaam) kan er een file, dat uiteraard een BASIC-programma moe 
zijn, uitgeprint worden op het beeldscherm, zonder dat het geladen wordt in he 
tekstgeheugen. Als de file geen BASIC-pragramma is verschijnt er natuurli 
onzin, Zie verder bij #DUMP en +TYPE 


OPT (Koption>) (drive) “0. 
Met #OPT (Koption>) (drive?) kan de option van de bootfile, die op de sci’ 
staat veranderd worden: 

*OPT B doet niets 

“DPT 1 laad ge bootfile teLDAD !BODT 

*OPT 2 runt de bootfile (#RUN 'BOOT 

*OPT 3 executeert de bootfile (#EXEC !BODT 
Zie ook punt 4 over de bootfile. 


*QUAL <filenaam> % 
Met #QUAL <filenaam> (<qualifier>) wordt een file in een andere library gezet 
Als er na de filenaam een return gegeven wordt zal de qualifier van de file op 
#20 (default) gezet worden.Ook gelockte files en files in een andere library 
kunnen veranderd worden. Het idee achter deze "syntaxfout” is om files die per 
ongeluk in een verkeerde library terecht zijn gekomen gemakkelijk te kunnen 
veranderen. Na gebruik van het statement is de file nooit ge'ocked 


HRENAME <oude filenaam> <nieuwe filenaam> RE. 
Met #RENAME Coude naam> <nieuwe naam> kan men de filcnaam veranderen. Let 
hierbij wel op dat de naam niet veranderd wordt in een die reeds voorkomt an 
dezelfde directory. Gelockte files kunnen niet veran: fr worden, 

SECTOR (Xdriva>) *SE. 
Dit ís een Sector-lees programma. Men kan door eenvcudige taoetsbediening 
sectoren lezen en indien gewenst kopieren naar het werkgeheugen. Het progranmâ 
is “menu-driven”, Het menu waar het programma mee begint, ziet er als volgt uit 
A kopieert sector naar geheugen en 
maakt een ASCIl-dump 


H kopieert sector naar geheugen en 
maakt een hexadecimale dump 
€ kopieert sector naar geheugen en 


verhoogt het geheugen met een pagina 
P laadt de vorige sector 
M_ de plaats in het geheugen waarheen de sectar 
gekopieerd werdt, kan veranderd worden 
5 de sector, die gekopieerd wordt 
kan veranderd worden 
0 terug naar BASIC 
Als gekozen wordt voor A, Hof C wordt telkens automatisch de valgende sector in 
het buffergeheugen geladen. Het programma begint sector B te kopieren op adres 
#2500. 


XTYPE <filenaam> *T. 
Met #TYPE <filenaam) kan een tekstfile, die gemaakt is met #BUILD of #SPOOL 
uitgeprint warden zonder dat er executie van de tekst gedaan wordt, zoals bij 
EXEC, Als de betreffende file geen tekstfile 15 dan verschijnt er natuurlijk 
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Onzin op het beeldscherm. Zie verder bij #*DUMP en *LIST, 





SVERIFY (<orive>) Vv, 
Testprograams voor diskettes net 49 tracks 


*WIPE (Cdrive>) el. 
Met #WIPE ({drive)) kunnen alle files, die onder de bestaande qualifier staan en 
hiet gelocked zijn, verwijderd worden (#DELETE). Bij iedere fite wordt er 
gevraagd of deze verwijderd moet worden. Met de escape-toets kan het programma 
onderbroken worden. 


Indien men over meerdere drives beschikt kan men de betreftende statements ook 
aanroepen met gen ander drivenummer dan 9: 

Als U achter de betreffende opdrachten geen getal zet, zal het statement dit 
beschouwen als zijnde de drive die op dat moment aanstaat, 


Samenvatting van de CLI-uitbreidingen 


1, Krachtige kopieerroutines met #COPY en #BACKUP. 


2. Utilities om sectoren en files te lezen met #DUMP, #LIST, *SECTOR en 
+TYPE, 
3. Verwijderen van tiles en beveiliging van dem catalogue met #ACCESS, 


#DESTROY, #ENABLE en #WIPE, 

4. Het veranderen van files met sRENAME en #GUAL. 

5. Bekende utilities als #COMPACT, FORMAT, #INFALL en #VERIFY 

6. Het kreeren van tekstfiles met #BUILD. 

7, Een uitgebreide #CAT en een auto-DOS-start met #0PT, 

B. Een snelle 120@ baud COS-routine 

9. Mogelijkheid tot het schakelen naar een ander BASICpragramma met CHAIN 


Z — De imitialisatie 


3.1 De diskrom in de schakelkaart 
Om de diskrom naar behoren te laten werken, dienen er een aantal voorzieningen 
getroffen te worden. Ten aanzien van de BASIC-statements is dit niet nodig. Deze 
doen gewoon mee in ieder schakelsysteem. Voor de CLf-kommando's moet in de 
eerste plaats de CLI-vektor verzet worden. Deze vektor #2D6,#207 staat normaal 
op adres #ESES, het begin van de interpreter van de DDS-rom. Deze vektor wordt 
verplaatst naar een adres waar een routine staat, die de diskrom opzoekt op de 
schakelkaart en voorschakelt. In wezen moeten de extra CLI-kommando’s 
ingeschakeld worden. Dit kan op twee manieren gebeuren: 
1. Met het statement DISK, 
welke ingebouwd is als BASIC statement in de diskrom. Met DISK wordt er een 
zoekroutine gekopieerd naar #9FAG en de CLl-vektor wordt vok op #9FAB gezet. Dat 
statement is speciaal ingebouwd voor diegenen, die niet met een beotstrap of 
aangepaste resetroutine (BREAK) werken. 


2. Met een aangepaste resetroutine 

In deze routine wordt vaak gerst enkele poorten goed gezet, dan de vektoren en 
de diskgebruikers zullen dan ook met JSR W#EGGI de DOS aanzetten. Na het 
aanzetten van de DOS moet men de CLl-vektor wijzigen in het beginadres van de 
zoekroutineg voor de diskrom. Deze zoekroutine kan natuurlijk overal in het 
geheugen staan. 


In de diskrom zijn nog een aantal veiligheden ingebouwd, die er voor zorgen dat 
deze ron kan samenwerken met de andere boxen op de schakelkaart, met name in 
BASIC-prograana's. Inners, zoals bekend verandert de P-Charme interpreter de 
breakvektor in BASIC-prograema's. 
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In de zoekroutine wordt de breakvektor (#202,#283) en het nuamer van de box die 
voorstond, voordat de CLI aangeroepen werd, gesaved op de adressen #9FF@-49FFZ 
Als een CLI-kommaando juist ìs afgewerkt of niet gevonden ís wordt er gesprongen 
naar een subroutine, die de originele breakvektor hersteld en de vorige eprom 
weer voorschakelt. Hierbij wordt er een klein stukje assenbler gekopieerd naar 
#GEED-ROFEG. 

Als de schrijfroutine-vektoren (4208,#289) veranderd zijn in een adres dat in 
blok #A@BD staat, zoals het geval is met EDIT en CALC wordt er direkt 
doorgesprongen naar de interpreter van de DOS-roa (#E3E5), Het zal duidelijk 
zijn dat de extra C(I-kosmando's waarbij tekst wordt afgedrukt, niet kunnen 
samenwerken met bijv. de editor of met GRMOD uit de Josbox, 

Veel diskgebruikers zullen de bestaande CLI-koamando's afkorten. Veel 
voorkomende afkortingen zijn wl. (#LOAD), #5, (eSAVE) en «R. (#RUN). In de 
interpretertabel van de diskrom zijn de genoeade komeando's ook opgenomen, om de 
originele afkortingen te kunnen handhaven. Wanneer dit niet gedaan zou zijn, 
zouden de genoemde afkortingen respektievelijk #LIST, #SECTOR en #RENAME 
betekenen. Zie voor alle afkortingen punt 5. 





Het statement "DISK" 


ztest JSR #C4E4 \test einde statement 
JSR #EQGO \initialiseer OOS 


\copieer zoekroutine naar #9FA8 
LDX @teind-begin) 
copy LDA eind,X 
STA #9FAG, X 
DEX 
BPL copy 
\zet command-line vector op #9FAQ 
LDA #9F 
STA #287 
LDA @#AD 
STA #206 
JMP #C5TE \einde kopieerroutine 


Het volgende stukje machinetaal wordt door het statement DISK gekopieerd naar 
#9FAD. Dit gedeelte zou in een bootstrap kunnen of in een aangepaste 
breakroutine na JSR #E@00. 





begin 
LDA W9FFF \kijk welke box aanstaat 
STA KIFF2 \save boxnummer 
\save breakvector 
LDA #202 
STA #PFF2 
LDA #263 
STA #9FF1 
\zet breakvector goed 
LDA @#C9 
STA #205 
LDA @#D8 
STA W292 
\zoek diskrom op 
LDX@RB \initialiseer teller 
box DEX 
STX #BFFF 
LDY @#23 \ga zoeken of er DISK staat op adres #AB3F 


find LDA #ARZF,Y 
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CMP string,Y 





BNE box 

DEY 

BPL find \box gevonden 

STX NOFFF 

JMP HAD47 \spring naar interpreter 
string 


$P="DISK"jP=Pel.P 
teind 


5.2 De diskutiiitie's in het ram-geheugen 


Voor diegenen, die niet in het bezit zijn van een schakelkaart, is een speciale 
source ontworpen, zodat zij ook gebruik van de diskuitbreidingen kunnen maken. 
Deze source bevat uitsluitend de CLl-kommando's en niet de BASIC-statements FCOS 
en CHAIN, De voorzieningen zoals vemeld in punt 3.1 zijn niet nodig, omdat er 
niet geschakeld hoeft te worden in een schakelkaart en zijn derhalve weggelaten. 
De interpreter is wat aangepast om gebruik in net lagere geheugen (onder de 
#B898) ook mogelijk te maken. Het assembleerprogramma gebruikt geheugen van 
#2900 tot ongeveer #7908. De objektcode zal dus boven de #7980 of lager dan 
#2888 kunnen staan. Om de uitbreiding te initialiseren is alleen een verandering 
van de CLIl-vektor nodig. Het programma geeft dit ook aan. De lengte van de 
cbjektcode is ruim 13 pagina's (3,4 kb). 


A — De boottfile 


In een DOS-systeem als die van de Atom mag eigenlijk een DOS-autastart niet 
ontbreken, Over dit is al het een en ander gezegd, O.a. in Acorn Nieuws. Kort 
Samengevat kont het op het volgende neer. 

in de resetroutine (BREAK) wordt een test ingebouwd of de Control-toets, of 
zoals men wilt de Shift-toets wordt ingedrukt, Deze test gebeurt met LDA #B221 
en wordt vervolgd met CMP @#BF voor de control-toets of CMP @#7F voor de 
shift-toets. Als dit waar is wordt er gesprongen naar een routine, die test cf 
de option van de schijf ongelijk aan nul is. Als de option 1 is wordt de 
bootfile geladen (#LOAD), als de option 2 is geladen en gerund (RUN en als de 
option 3 is geexecuteerd [sEXEC).Het programma !BOOT wordt de bootfile genoemd 
en moet aanwezig zijn op de schijf die op dat tonent in drive Q zit onder de 
default qualifier. Zo'n programma kan bijvoorbeeld een ander (hoofd)programna 
gaan laden en runnen met bijvoorbeeld: 


18 REM !BOOT 
20 CHAIN "NONSENS" 
38 END 


(deze laatste regel is niet noodzakelijk, zoals de oplettende lezer opgeserkt 
zal hebben) 

Bovenstaand programna moet dan wel met BSAVE weggeschreven zijn; de option is 2 
teRUN} , 





en andere mogelijkheid is om met +BUILD de volgende tekstfile te kreeren: 
CHAIN “NONSENS* 
en deze als bootfile te executeren wet option 3 (#EKEC), 


Een andere manier is om alle files - dit zijn aeestal BASIC of 
achinetaalprograsaa's - af te grukken in een soort menu. Vanuit dit menu kan 
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dan een programma gekozen worden. De bootfile zal dan het programma laden en 
gaan runnen. 

Onderstaand programma is zo'n bootfile, welke bovendien nog de eigenschap heeft 
om random access files = weet U wel die beginnen op adres #0000 en gemaakt 
worden met FIN, FOUT, #SPODL en #BUILD — niet in het menu te zetten. Bovendien 
worden die files, van welke het startadres groter is dan HABBO (meestal roms) en 
kleiner dan #2008 (write protect) ook niet in het menu opgenomen. Ook de 
bootfile zelf ontbreekt natuurlijk in het menu. 

Het zal eenieder duidelijk zijn dat met name de BASIC-programma’s, die in zo'n 
menu voorkomen goed weggezet moeten zijn op schijf. Aan te raden is dan ook om 
alle BASIC-programma's met het statement "BSAVE“ uit de P-CHARME weg te 
schrijven. 





Dan volgt nu de listing van de bootfile: 


18 REM (BOOT 

28 DIM PP(31) 

38 FOR N=8 TO 51 

48 DIM PAD) GPP =P 

50 NEXT 

&B *NOMON 

78 A=?#2105/8; Bel 

B@ FOR N=1 TÔ A 

9a 2(#2007+N4B) =#D 

188 NEXT 

118 FOR N=t TO A 

128 P=#20004N#B 

138 IF $P="!BOOT “;6010 198 
148 S=! (#210BNEE) KAFFEE 
158 _XIF S>#2i1FF AND S<#9EGG 


168 s$PP{B)=S$P 
178 B=B+1 
188 ELSE 


190 NEXT; B=B-1 
208 PRINT $12"DISK: * 
218 FOR J=0 TO 7 

220 PRINT ${7(#200B4J) ) 
230 NEXT 

240 FOR J=0 TO 4 

250 PRINT $(?(#2108+J)) 
268 NEXT 
270 PRINT 
288 C=B/2+B%2 

298 FOR Net TO C 

300 PRINT S(CH"@"+N),", "SPPN” " 

518 KIF N+C<=B 

320 PRINT $(CH"@TAN+C) ,". "SPPIN+C) " 

530 ELSE P,’ 

340 NEXT 

358 PRINT "-—---mn-nnenevveerrvvevnve 

340 PRINT "DRUK OP EEN TOETS * 

378 INKEY I 

380 IF IXCH"A" OR I>{(CH"@"+B);BEEP 29,30;6DT0 578 
390 I=l-CH"E" 

490 PRINT ""KEUZE : "SPP(I) 

410 P=TOP-17;N=0 

420 SP=SPPI;P27=CH"""" 

438 DO 

â4n NeEN+1 
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458 P=#2088+N*B 
468 UNTIL $P=$PPI 
478 P=TOP-27 

480 0242007 +N#B 

490 #DIR 

508 IF 70>#88; °Q=29-H08 
519 2P=?g 

520 BEEP 20,30 

530 122 (H2181+N#0) 
548 «SETx 

55 #RUN" sx arx 
Sé8 END 


Geheugengebruik 


De volgende geheugengebieden worden gebruikt: 
1. Zero-page adressen #90 tot #95 voor tijdelijk gebruik, 

DISK: de adressen #9FAB tot H9FDB, Deze adressen mogen niet voor andere 
doeleinden gebruikt worden. Alleen als men gebruikt maakt van een bootstrap 
of gewijzigde resetroutine (zie punt 3) kunnen deze adressen wel gebruikt 
worden, want dan is het statement DISK niet meer nodig. 

De breakvektor en het boxnummer worden weggezet op de adressen #9FFO tot 
HIFFZ (tijdelijk gebruik), 
3. De adressen H9FEC t/m #9FES voor de terugspringroutine (tijdelijk gebruik). 


S De resetroutine {BREAK ) 


In de onderstaande routine worden eerst de poorten en vectoren goed gezet 
Hierna wordt — dit is een persoonlijke initialisatie - de P-Charme voorgezet en 
dan wordt er gekeken of het DOS aanstaat, Is dit het geval dan wordt deze 
geïnitialiseerd. Tevens wordt de diskrom ingeschakeld door het goed zetten van 
de CLI-vector. Dan wordt er getest of de control-toets ingedrukt wordt. Wanneer 
dit inderdaad gebeurt wordt Catalogue van drive @ geladen en gekeken welke 
option uitgevoerd moet worden ten aanzien van de bootfite. Het gedeelte vanat 
sos is belangrijk voor de bootfile en de diskrom. 


begin LDA &#A;STA #FE zet testbyte printer 
LDA @#8A;STA 48003 zet poorten goed 
LDA €#27;STA #B222 
STA M9FFF;STA HBFFE zet P-Charme voor 
LDX #25 

rloop LDA tabell,X;STA #208,X zet write-readvectoren 
DEX;BPL loop 
LDA @#AB;STA #283 zet breakvector 


LDA @#D5;STA #282 
LOA @#00;STA #3EE LE 


LDA @811;5TA #3EF ) init uitbreidingen 
LDA @#B3; STA #3FB ‚ 

TXS; INX;STX #E7 

STX MEF;CLI MON 

LOA €89B;STA #E1 

JSR #FDED 

J5R &F?D1 print het volgende 


$P=" ACORN ATOM DOS hd 
2P=806;P?1=80C 
PI12=48A;P? 13e ED 
PaPel.P+5; IPztABAGODB7 ; PzPe4 


dos LDA #E200;CMP @#A9 test of DOS aanstaat 
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seinde 
:tabelt 
zbaat 


: label 


zrun 
texec 
nothing 


:tabeì2 


disk 


tfind 


string 


BNE einde;JSR #E£000 
LDA @disk%256;STA#206 
LDA @disk/256;STA#207 
LDA #B8B1; CMP G#BF 
BNE einde 

JSR boot 

JMP #C2CF 


IP=#FEVAFES2;P=P44 


LDA @#29;STA #12 

JSR #E223;LDY EROS 
LDA tabel2,Y;STA #120,Y 
DEY;BPL label 

STY HEF; INY 

LDX &#09 

LDA #2106; JSR #EOFB 
REG nothing 

CMP @#D1s BENE run 

JMP #E465 

CMP @#02;BNE exec 
JMP #E5OA 

CMP @#O3;BNE nothing 
JMP #HES19 

RTS 


$P="1BOOT * 
Pal .P+Ps (PL) =#0D 


LDA #9FFF;STA HOFF2 
LDA #202;STA #9FFO 
LDA #205;STA #9FF1 
LDA @#C9;STA #202 
LDA @#DB;STA #203 
LDX @#78 

DEX; STX HBFFF 

LDY E#05 

LDA #ABIF,Y;CMP string, Y 
BNE box; DEY;BPL find 
STX HOFFF;JMP #HAD47 
$P=YDISK";P=P+L.P 


o-—-De schijf 


Op de schijf van 


DBOX-V1 
DISK-V{ 
DSRC-V1 


BOOT 
BREAK d 


— De diskrom voor op #A009. 
- De source van de diskrom 


initialiseer DOS 

zet CLll-vector goed 
voor de DISKROM 

test op control-toets 


read-write adressen 
laad catalogue 

zet BOOT op #120,X 
*NOMON 


welke option 


*LOAD bootfile 
RUN bootfile 


*EXEC bootfile 


zie punt 3 


de diskrom staan de volgende files: 


= De source van de diskutilitie's voor diegenen, 


die geen schakelkaart hebben. 


- De in punt 4 beschreven bootfile. 
- Een resetroutine die eventueel naar eigen inzicht 


aangepast kan worden. 
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GAGS SPELLE T.JE BURGER T IME 


Het spel is gemaakt voor de GAGS-bex en maakt gebruik van de geheugenkaart. Het 
doel van het spel is om zoveel mogelijk hamburgers te maken. Deze kunnen gemaakt 
worden daor over het BOVENSTE broodje te lopen, 

Voor elk gevallen deel krijgt men 1@ punten, 52 EXTRA punten krijgt men voor het 
pletten van de UI tussen de vallende delen. Uw enigste verdediging is weglopen 
of het stracien van PEPER welke LINKS- en RECHTSboven te verkrijgen zijn, het 
stroaien gebeurt door op ACTION te drukken. Wanneer de UI de peperwolk tegenkomt 
is hij tijdelijk uitgeschakelt, 

BURGERTIME bevat 6 LEVELS welke elk 2 keer doorlopen moeten werden. Wanneer dit 
gebeurt is, of men as 5 mannetjes kwijt krijgt men de SCORE te zien. 


VEEL SUCCES MET RURGERDTIME LINE, 


iGFEMburgertime van Kees van Oss 

20 BAGERAA;REM(ot#90) 

25 NOSNOW 

30 F.1I=0T06S. 5 

48 CR.BU1,0,8,0,83F ,BIF,HIF,#F,7,0,0,2,HFC,HFB HFD, HFB, REBD/A: IEN, 
58 F‚1=1T078,5 

68 CR.ME1,0,0,0,0,#2A,H5S,HZA, HIS, 0,0, 0,0, HAB, HSA, HAA, HSA/Ar IJN, 
78 F,I=21085, 5 

80 CR,SL1,0,9,0,0,8,HSD,#77,#22,0,0,D,2,#B8,RDC,H7E, HZ2/Ar IEN. 
98 CR.EOT,O,A,0,0,HIF,HIF,HSF,HIF, 0,0, 2,0, HES, BFB HFC, HFC 
190 CR.BALK,2,0,0,HFF, #44, HAA, HLI,HFF,2,0,0, BFF, H44, HAA, HIL, HPF 
118 CR.TRAP,G,0,0,#FB, #40, HAB, HIG, HFB,O,D, B, RIF, 4, HA HIL, HIF 

128 CR.LAD,4,4,4,7,4,4,4,7,#20,#20, #20, HED, #20, #20, #20, HED 

150 CR,SPA HIS, HZI, HDS, HZO HIL, HIL, #29, #25,0,0,0,0,0,0,0,0 

148 CR.PEP,O,B,HE HE HE,4,HE,4,9,0,0,2,0,2,2,2 

158 CR.WOLRK,2,8,0,1,8,1,8,1,#40,HAD,D, HAD, #20, #50, HAD, 

168 CR.UIBL,HF,7,7,1,1,9,6,0,HEO,HRB, HAD, HCA, HCO, HAD, HUD, HOO 

170 CR.UIO1,8,0,0,1,#5,7,7,HF,D,0,0,HCD, HFD, HCD, HED, HFD 

188 CR,MAB,S,1,5,2,2,7,7,#C,#C0,0,#50,#ED, #50, HED, #08, #CO 

198 CR.MAO,8,8,HE,5,6,0,6,6,#7D,H40, HAD, HCO,H2D,0, HED, HED 
200 CR,MEO,3,2,2,5,7,0,7,7,#80,0,H7D, HDE, HED,O, HAD, HOO 
210 CR,HOOP,BF, 5, 1,#20,8,4,8,0, FO, HED, HBD,2,0,8,#20,0 
228 CR.LEVEL,#D9, #92,RFA, ROZ, HOA, 0, D,O,HSO, HAA, HBA, HAA, HRA,D,2,D 
2538 ER,VOEK, HFD, #12, HEF, HIO,HFO,0,2,0,0,2,2,0,0,0,0,8 
240 F=BiM=ZjleByE= 0 TeBik=ds Wed; =D 
258 CLEARZ 
268 F,I=OTO112S. 16; SET: BALK, I,12B;N. 
278 F,I=8T012285, 32; SET: BALK, I,S2iN, 
288 F.I=3T01255.8; IMAGE: SPA,D, TiN, 
298 TURN: SFA 


308 F. 1251012358. 8: SET: SFA, 112, TiN. 
310 F.1=64T0965. 22 
320 F.J=8T01045, 32; SET: TRAP, J, DiN. 
330 ON. 
348 F.1=8101045. 32 
350 F.J=40T01285. 8; SET:LAD, 1, Jin. 
360 N. 

F 


„X=E1D1045. 22 

380 SET: BALK, X,12B: SET: TRAF,X,128 
390 N. 

49B F.I=OTORIEFS. 44 1! RBOOD=I! HAZEN. 
410 F.1=101T01175.8 

A2E SET: MAE, 1.167 
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A30 N. 

&AQ IMAGE:PEP,O, 140; TURN: PEP; SET: PEP, 112, 140 

450 SET:LEVEL,@, 168 

460 GOS, 1 

478 IF TOI Rel 

480 F‚1=4T02 

490 SET 1,24, (26-1432 

500 SET (143,56, (96-1432 

SI@ SET (1+6),8B, (96-1432 

520 IF T=8 SET:BOT, (2441452) ,3 

530 N 

540 L=ljX=BjY=144 

550 SET:MAB,8, 144; SET: MED, 8,136 

560 IF Té6 SET:UIB1,8,48;5ET:UID1,8, 40 

570 00 

584 GOS. a; UNSET: MEO; GOS.ns SET: MAD,X, (Y-B); EDS. ps SOUND10D, 5 

590 GOS. a; UNSET: MAO; BOS. n; SET: MEO, X, (Y-8);60S.p; SOUND140,5; 508. 5 

609 POS 0,1,8;POS 3,1,C;POS 6,1,D 

618 U.B=C AND C=D AND D=16 

420 F‚1=100T0150 

639 SOUNDI, 30; SOUND (202-1) „30 

640 N. 

650 F.1=0T08;UNSET IjN. 

660 UNSET:U1B1;UNSET:UI01; UNSET: WOLK 

670 UNSET: MAB; UNSET: MAO; UNSET + MED; UNSET : VORK 

689 IF A=255; TU. :MAB; TU. : MAO; TU, : MEO 

690 T=T+14 IFTS12 6.460 
700 IFM>G 1=0;6. 440 
71 P.$12"UW SCORE WAS: "2 
720aA=0; B=0:C=0 
750JOYSTK A,B,CzIF A+B=256 OR A+B=2 OR A+B=510; A=0;B=0 
780 IF (Y-16)32400 A=0 

750 IF (X-8)%524>0 B=0 

76D IF LC>A IFAC>D; TU. : MAO; TU. : MAB: TU. : MEO 

770 IFC=1 IFE=8 IFP=1;608.k 

790 IFA=Q IFB=8 IFTX4 GOS. b;PAUSE12; 6.4 

809 IFA=0 IFB=G IFT>3 GOS, b;6.q 

BU POS:MAB,X,Y 

B2Q IF X=24 OR X=56 OR X=B8 AND Y<148 GOS, h 

830 IF (X-81432400 B=8 

B40 IF (Y-16)232>0 A=D 

850 IFX=4 IFA=255}A=Dj IF Y=144;PIXEL 5,138,1 

3 IFIjF. 124106; MOVEI, 130; PLOT, 1,146; N. iP=l 
850 IFX=108 IFA={ A=0;1FV=144; PIXEL 122,138,1 
$IFIGF. [=12470424; MOVEI, 130; PLOT7, 1,146; Ne; P=1 

870 IFY=48 IFB=255 B=0 

880 IFY=144 IFB=1 B=G 

890 r. 

FOBLO=0+1J IF TS Gm 

910 POS:UIBI,R,S 

920 IF 1/2=2 GOS. f;G. 960 

925 I= (R-B)AIZj J=(S-16) 452 

930 IFI=D IFJ=Ò GOS. 4 

942 IFI=0 605.c 

950 IFJ=0 605.c 

968 POS:WOLK,1,J 

970 IF A. {I-RICA IF A. {J-5)=4 E=E-1; IF E>0;6. 1010 
980 IF E=0;UNSET: WOLK 

998 IF E>D:E=E-1s TU. : WOLK 
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1009 SHO,:UIB1,W,‚V; SHD. :UIO1 ‚W‚V 

1818 IF A, (X-R)48 IFA. (Y-6){16}805.9 

1828 SOUND255,7 

1039 R‚ 

1830cIFICO V=0 

1050 IFJ48 W=G 

1068 IFR=B IFW=-4 Wa4; TU. :UIB1j TU. :UIO1 

1070 IFR=104 IFW=4 W=-4; TU, :UIB1; TU. :U101 

1080 1FS=48 IFV=-4 Va4 

1090 IFS=148 IFV=4 Va-4 

1100 R. 

1LEGFIFKSOW IFWOO Kel 

1120 IFT/2eD UzA.R.4436.5 

1130 IFT/2=2 6.r 

1140 IFT/2=0 U=A.R. 44; 0.5 

1150 IFXR 

1160 IFY4S 

1170 1FY>S 

1180 IFXCR 

11909 6.t 

1200r FXR IFY>S Veas =d 

1210 IFX>R IFYCS 

1228 IFXSR IFY>S 

1230 IFXXR IFVES V=-4jW=- 

1248 G.t 

1250sIFU=0 V=0;W= 
4; 











1260 IFU=1 V. 
1278 IFU=2 Vv: 
1288 IFu=3 V: 
1290t IFK 
1309 R‚ 
1510gMeM-1;F, I=10STO(L0S+(3-M) #0-1) 
1320 MOVEI,162;DRAWI,167 
1358 N, 
1340 IF M=0;F, I=100T0150; SOUNDI , 30; SOUND (200-1) „30;N. 36.719 
1350 F‚1=0T010;PAUSEI ; ?#B002=?#BO02: 4; N. ;PAUSE3O 
1368 POS: MAD, X,Y; UNSET : MAB; UNSET : MAD; UNSET : NEO 
1370 SE +144; IF X=255;SET:MEO,B,136;G. 1390 
1380 SET:MAO0,8,136 
1590 X=8;Y=144; UNSET: VORK 
1402 R‚ 
1810hl=(X-24)/5243 
1420 POS I,D,J 
1438 IF JY 6.1490 
1440 PIXEL(X+5), (Y-18) ‚Gj IF 9=0;G. 1490 
1450 IF Y/11220;F.J=1TD16; SHOVE 1,8,-2; 608. ijN. ; I=1+1 
1460 IF Y/80>0;F, J=1T016;SHOVE 1,8,-2;60S. ijN.sI=lt1 
1470 IF Y/480;F,J=1T0(24-(112-V)/3244)/2 
3 SHOVE 1,8,-2;608. ijN. 5 Z=2+10; IFY>79; SHD. 1,0, -1 
1480 Fr1 
1490 R‚ 
1SOOLATHIT:UIBi, 1; POS: UIBI,R,5; 608,0 
151@ SOUND J,6 
1520R, 
1550jIF Fel Frd;R, 
15848 POS:MAO,J,I 
1550 IF J=255;F.Iei6 TO Y 5.4; SHD. :MAB,B,-4} SHD. ;MEO,O,-4; SOUNDI, S;N.;6. 1570 
1560 F.l=ié TD Y S. 4; SHO. :MAB,8,-4; SHO, :MAD,O,-4; SOUNDI, Sj N. 
1578 UNSET:MAB;SET OOP ,X,8;F.‚.N=BT01Ö; TU, :HOOP;N. ; UNSET: HOOP 


>0; TU, :UIBL; TU. :UIO1 
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1588 6.9 

1590KP=P-1;F. 12202702505, 5; SOUNDI „Sj N. 

1600 IF L=1 6=X+5;6. 1628 

1610 G=X-8 

1628 SET:WOLK,G, (Y-4);E=30jR. 

16301F. 12177020; MOVEI , 160; DRAWI, 167; N. 

1640 IF T/2=0;MOVE12,165;PLOT7,19, 161 

1658 IF T/2=1;MOVE17,165;PLOT7,19,165;PLOT7,19,163 
;PLOT7,17,163;PLOT7,17,161;PLOT7,19,161 

660 IF T/2=2;MOVE17,165;PLOT7,19,165;PLOT7,19,161 
$PLOT7,17, 161; MOVE19, 1633 PLOT7, 17, 163 

1678 IF T/2=3}MOVEL7, 165; PLOT7,17,163;PLOT7,19, 165; MOVEL9, 164; PLOT7,19,161 

1688 IF T/2=4;MOVE19, 165; PLOT7,17,165;PLOT7,17, 163 
$PLOT7,19,163;PLOT?,19, 161; PLOT? ,17,161 

1690 IF 7/2=5;NOVE17,165;FLOT7,17,161;PLOT7,19,161;PLOT7,19,163:PLOT7,17,165 

1700R. 

1710nIF RB IF TIG 6,1849 

1729 IF T/225 ;IF R=-1 SET:VORK,128,Y 















1738 IF IF Y&5;SHO. :VORK,-8,-4; 6. 1840 
1740 IF T/2=5 IF Y>S; SHD. :VORK,-8,4; 5. 1849 
1758 IF Y=8; SHD. :VORK,-8,0; 6. 1840 
1768 S=Y-4;R=128; 6. 1830 

1778 IzA.R.L3G IF 1450 G.1920 

1788 ;R=128;5=0 

1730 5=45 

1820 =75 

1818 2 S=1087 

1820 3 52159 

1830 SET:VORK,R‚S 

1840 





18509 IF A=0 IF B=0 PAUSES 

1849 IF R>O IF TC10 SHO.:VORK,-8,0 

1879 IF R=Q UNSET: VORK;R=-1 

1882 SOUND 29,4;S50UND 88,4 

1890 IF T/2=5 AND R-X=8 OR R-X=4 AND Y-SX18 AND Y-5)-5jR=-1;6.9 

1988 IF T/2=5 &. 

1918 IF R-X=12 OR R-X=ib AND Y-S{I8 AND Y-5)-SjR=-1;B.g 

1920. 

195@nIF LSA IF ADE L=A 

1940 SHOVE:MAB, (A44) , (B#4} 

1950 POS:MAB,X,Y;R. 

19&BpPIKEL (X+6),(Y-16),G5 IF G=0; PIXEL (X45) , (Y-18),9 
zIF Q=O;PIKEL (+11), (Y-16),G; IF Q=0;G0S. j 

1970R. 

198BOIF JK>18 IF T44 R‚ 

1999IF R>15 AND RE33 OR R>47 AND RX65 OR R>79 AND RX97 6,201 

200oR. 

2010 UNSET:UIB1; UNSET:UIO:; SET: HOOP, (R-4) , (5-7) 

2020 F‚N=@T048; SOUND (190-N) „B; TU, :HOOPEN. 

2028 UNSET: HOOP; SET:U1B1,8,48; SET: UI01,8,40; 1=2+50 

20AUR. 
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PE SIMPLEXMETHODE 


Cperations-research is een wetenschapsgebied dat zich bezig houdt met het vinden 
van oplossingen voor problemen als “hoeveel verkoopsters moeten er in gen winkel 
staan zonder dat enerzijds de klanten eindeloos moeten wachten voordat ze 
geholpen worden en zonder dat anderzijds de winkelier een overschot aan 
personeel hoeft aan te nemen dat alleen in de drukste momenten wat te doen 
heeft”. Dit probleem staat bekend als een “wachttijdenprobleem". Sommige banken 
hebben nog steeds moeite net de oplessing ervan 

Een ander voorbeeld is dat van de handelsreiziger die een bepaalde route moet 
afleggen en graag wil weten wat de kortste Weg is langs een aantal adressen, 
waar hij een afspraak heeft. 

Ook PERT (zie Acorn nieuws van 19835, nummer 5, blz2.49) valt onder operations- 
research, net als oplossingen voor “job-shop" en "flow-shop“ problemen. Dit zijn 
problemen als "ik heb drie verschillende machines, waarop ik vijf verschillende 
produkten moet maken. Niet alle vijf de produkten maken in de zelfde volgorde 
gebruik van deze machines en bovendien tegt het ene produkt niet even lang 
beslag op een machine als het andere produkt. Hoe verdeel ik nu de produkten zo 
over de machines, dat alles zo snel mogelijk klaar is”, Het samenstellen van een 
schoclrooster lijkt hier een beetje op. Ik hoop hier een volgende keer op terug 
te komen. 

Al dit soort voorbeelden zijn eptimaliseringsproblemen. Wachttijden, reistijden, 
doorlooptijden voor een project, productietijden moeten geoptimaliseerd worden 
De SIMPLEXMETHODE is ook voor zo'n probleem: 

Een bierbrouwer fabriceert twee soorten bier(X1 en X2). Op soort Xt maakt de 
brouwer $13 per vat winst en op soort X2 $23 per vat. Het doel van de brouwer is 
zijn winst te maximaliseren en de doelsteltlingsfunctie is daarom 


13RX1+230{2 


Nu zou de brouwer natuurlijk alleen soort X2 kunnen maken. Het probleem is 
echter, dat er gen gebrek aan grondstoffen is. De brouwer heeft slechts de 
beschikking over 489 pound graan, 16@ ounceshop en 1198 pound mout. Voor een vat 
Xl zijn nodig 5 pound graan, 4 ounce hop en 35 pound mout.Voor X2 is benodigd 15 
pound graan, & ounce hop en 28 pound mout. Dit betekent dat er drie 
beperkingen{nevenfuncties) zijn 


SEXl+15#X24= 460 
Gele 4eX2= 160 
354X1e2D4X2Ce1190 


De hamvraag is nu: hoeveel vaten Xi en hoeveel vaten X2 moet de brouwer maken om 
zijn winst te optimaliseren. Het antwoord wordt door bijgevoegd programma 
geleverd en is 12 vaten Xt en 28 vaten X2. De winst wordt dan $800 

Ket programma vraagt eerst naar de coefficienten van de doelfunctiett3 voor X1 
en 23 voor X2). Daarna kont de eerste nevenfunctie aan de beurt: eerst de 
Coefficienten voor X1 en X2 {respectievelijk 5 en 15}, daarna de constante (490), 
Vervolgens hetzelfde voor de tweede en volgende nevenfuncties. Het programma 
bevat nog een klein schoonheidstoutje(je ziet het van zelf als je bovenstaand 
voorbeeld probeert), Wie weet de oplossing hiervoor? 

De arrays zijn gedimensioneerd voor maximaal 9 verschillende produkten(soorten 
bier) en 9 verschillende nevenfuncties. 
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18 

38 

40 

50 
128 
148 
158 
168 
198 
220 
210 
230 
248 
250 
279 
320 
318 
320 
360 
357B 
3588 
390 
410 
420 
438 
450 
480 
490 
50e 
520 
550 
550 
568 
570 
588 
6:18 
628 
668 


PROGRAM SIMPLEX 
FDIM Z22E21),XAA(IB, 21); DIM XX(10) 


P‚$12"sttsinplexmethoderte” "DP NUL ZETTEN VAN MATRICES" 


FL I=DTOLO KNC) =O; F.J=OTO Zj ZZUI =D; ZAAL, JI DEN. iN. 
N=9; @=0; A=0 

REM*INVOER VAN GEBEVENS* 

REMADOELFUNCTIE* 

P.S12"#rtSIMPLEK DOELFUNCTIEesA" 

P, "GEEF IN TE VOEREN COEFFICIENTEN STOP=-1"" 

F.J=11010 
P 
P 








„XX JsFINP. ZZZ) 

„FIF KIZ D= G. 300 

FIF 4120) =-1 6.270 

P."FQUT COEFFICIENT MOET >=0 ZIJN"'$G,218 
N=J-1j KZ) =0; J= 10 


N 

REM+ INVOER NEVENFUNCTIES* 

F.1=1TO10;P.$12"#44SINPLEX NEVENFUNCTIE "Ieren! 

„ “FUNCTIE “17 

"GEEF IN TE VOEREN COEFFICIENTEN STOP=-1"" 

=1TON 

e X"JsFINP. ZAAL, 

SEIF KAAI, J)>=0 6.480 

FIF ZAA(I,l}=-1 6.450 

P. "FOUT IN TE VOEREN COEFFICIENT MOET >=0 ZIJN"";6.590 
A=l-13 JEN; 1218 

N 
IF A8 6.550 

P. "GEEF CONSTANTE "1;FINP.ZAACI,21) 
P.'5FIF KAAI, 21)>=0 6.550 

FP. "#FDUT# WAARDE MOET>=@ ZIJN"';6. 590 
N 
REM#BEREKENING* 

REM «AANPASSEN DOELFUNCTIEE 
F‚JE1TON KLEI XZZ OJ e-liN 

REM #TOEVOEGEN SPEL INGSVARIABELEN+ 

F‚ I=1TDAG ZAACI,N+ DD =1g MACD EN+ IGN. 

REM +GROOTSTE TOEVOEGING-VOLGENDE HOEKPUNT: 








P 
P 
F 
P 
P 








670a8=0; AK=0 








F.J=i TO N+A 

FIF 212 EK 6.750 

UKEULLUH 3 

N 

REM «û=D GEEN GROTERE TOEVOEGING: 


IF Q=@ G.1190 

REM #WELKE VARIABELE IS BEPALEND* 
AV=ELAAU 21) /LAAL, Oz B=1; F. 1=2TDÂ 
FIF XAA(I,O)=B G.850 





UCEKAACT, 21) /LAACI,O) 

FIF 4C>={V 6.850 

1V=4CjB=l 

N. 

REMBASIS VARIABELE WISSELEN* 
XX (B)=0 

REM*DOELFUNCTIE BIJWERKENE 





LD=ABS(HZZ (B) /LAA(B,O)) ; HE=KAALE, 0) 
F‚Jzi TO N+A 


UITCII=LILIN+KAALB, J) #XDs ZAALB, J) 





A(B,J)/LE 
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KAL 

950 

768 

970 

968 

978 
1809 
1818 
1820 
1858 
1046 
1840 
1870 
1680 
1890 
1108 
1110 
1120 
1138 
1148 
1150 
1168 
1178 
1189 
1ied 
1228 
1249 


FIF ABS(LAA(B,J)D1E-3 G. 960 
LAALB,J) =O 

N. 

KLIU2IDUZZ ZIJ LAALB, 21 #4D 

FIF ABS(LLZ(ZI))D1E-3 G, 1999 
L2Z(21)=0 

LAALB, 21) =YAA(B, 211/4E 

FIF ABS(4AA(B,21))>1E-3 G, 1040 
ZAALB, 21) =D 

REMEKOLOM GQ SCHOONVEGEN: 

F. Te 1TOAG ZF=KAACI,G 

IF 1=B 6.1160 

FIF ZAAII,G)=D 6.1160 

F.J=l TD N4A 

KAACI, II SLAA, JI -LAALB, SALE 

FIF ABS(4AA(I,J))D=1E-3 6. 1120 
LAAC, JI =O 

N. 

LAALI, ZIJ ZAAL, 21) -LAALB, ZI "AF 
FIF ABS(LAAC,ZIJND1E-S 6. 1160 
KAALI,21)=0 

N. 

G.a 

REMRUITVOERS 
P‚$12"ESIMPLEX-METHODE MAXIMALISATIER" 
FP, “HET OPTIMUM LEVERT "4ZIC2I) 
FE. I21TOA3P. “X"XXCI)"= "JEP. KAAI, 210 "iN. GE. 
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Floppy-Disk-Controller 
Verplaatsen in memory-map. 


De Floppy-Disk-Controller zit normaal op de nogal ongelukkige plaats #OAxx. Als 
we ‘m daar weg willen hebben, dan moet de DOS-EPROM en de hardware worden 
veranderd. 

De DOS wordt veranderd door op alle plaatsen waar de FDC wordt aangeroepen het 
adres te veranderen in z'n nieuwe adres. Hieronder staan die adressen van de 
Dos. 

E884, EBDI, E228, E22D, E7DD, E7E2, E7EG, E7EB, E80C, EB14, EBS1, EBSF, EB7D. 

Op die adressen staat nu dus #0A, Als we dat veranderen in bv, #BE, dan wordt 
vanaf dan de FDC daar gezocht. 

De hardware aanpassing kan dan gemaakt worden, na de DOS aanpassing dus. Het kan 
nl. nodig zijn de Flop te gebruiken om de nieuwe EPROM te maken. Nog een advies: 
Wis de oude DOS pas als je zeker weet dat de Flop altijd goed werkt, net alle 
programma’s, Stel je voor het een of andere routinetje rommelt wat op #BExx, dan 
gaat er vast iets fout. 

Die aanpassing is simpel. Verbreek van PL6/7 punt 3f (inv. black @) en verbind 
dat punt met ic23 pin 12 (#Bxxx). Op de FDC-print wordt nu nog ic22 (74L5138) 
pin 14 losgesneden en het spoortje verbonden met pin 12, Nu staat de FDContraler 
op #BExx. 

Dat is alles. 


WAARSCHUWING. 
Ik heb de FDC niet op die plaats geprobeerd. Ik draai op #BFF4- HBFFB, dat kwam 
bij mij het beste uit. 


INITIALISATIE ROUTINE. 
Adressen voor de aanpassing van de DOS voor andere drive's: 


adres : nu : funktie z TANDON : TEAC 
E864 : #14 : #14#2msec. steprate. : #BA : #05 
E865 1 #05 : 542 msec, headsettlingtime + #04 1 #2A 
E866 : #EA : #C omwentelingen na aktie voordat : #74 1 #CA 


de motor stopt 
#Ax8 msec headload setlingtimne 


Om voor het aanpassen van de eprom de nieuwe waarden te proberen is het volgende 
programma. 


18 *DOS t initialiseer DOS 

28 t adres van de controller. 
58 1 specify commando 

40 2 initialiseer parameter, 
58 t step-rate, 

68 + headsetlingtime. 





7® A?4=H7A : omwentelingen / head loadtime. 
82 END 


Na een break of #*DOS moet dit programma opnieuw worden gerund, 
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12 REM INTELLIGENTE DISAS 600 \F7FL: p.adres 
20 REM F.LE BLANC &18 LDX8#92; LOYEB 
30 REM BASISDISAS 15 VAN F‚V,HOESEL 628:LLS 
40 DIM LL28,TT2,PP7,VV16 628 LDA (#90) ‚Ys; JSRNF7FA 
50 IN."ROUTINE OP: “@ +48 \F7FA: p‚adresinhoud 
68 FORI=BTOSO;LLI=DEN. 658 JSR#FAGE; BNE LLiD 
78 P.$21;8=0 66B PLA; PLA 
88 P=0;G0S.2;P=0; 605. a 670: LL18 
GB P,$4S11"ROUTINE OP: #° 688 DEC#69;BPL LLS 
188 F.sQ'-t"EP" 690 LDY#EB; JSRAFIIA 
118 END 708 \F9JA: p.spaties 
120 zeropagegebruik 718 JSR PPO\p.ascii 
136 90,91 ; DISAS-ADRES 728 LDX#6A;LDAHF 194, X 
148 92 1 AANTAL INSTR. 738 STARGA:LDAHF LSA, X 
150 95,94 : ASCIIPRINT 740 STARG5:LDYEI 
168 95 1 TESTBYTE PRINTER 758:LLI1 
176 96 1 STACKFOINTER JSR 740 LDX@5 
180 140-1BF: JSR-STACK 778:LLI2 
198al 788 ROL#64;RDLHGSJROL A 
220 JSRRC4E1;LDYERND 798 DEX; BNE LL12 
218 LDX#4; JSRHCICD 809 AND@#1F; CLC 
220 JSR PP&\test printer 819 ADC&#3F 
230 LDA@#8E; STARFL 820 CMP@HIF;BNE LLI3 
240: LB 830 LDA&#2D 
2s/ JSR LLI;JSR VVI B48:LLS3 
265 JMP LB B58 JSRAFFF4 
278:LL1 868 DEY;BNE LL11 
288 LDA#F0; STAR9S 878 JSR#F7FD;LDYEB 
298 LDA#91; STA89A 880 LDX&F;LDA TTO, X 
3e LDY&2 890 STARA9 
Zië:tL2 AB:LL14 
220 LDA(#98) ,Y4STAHGE,Y 910 CPY86;BNE LL1? 
558 DEY;BPL LL2 928 TXA4BNE LL!& 
380: LE 918 LDA#67; BPL LUIS; DEX 
358 INY;STY#F;LDX@R40 94B:LLI5 
36B:LL4 950 ELC; ADCHIO; START 
370 LDAf&&; CMPGED4 960 TXA; ADC#9 1; STA#G8 
288 BEG LL6;SEC 978 LDK@2; BNE LLI7 
290 SBCHFIFZ,Y; SEC 9BE:LLIË 
420 SKCHF210,X; ENE LL6 990 LDX2;BEB LLI9 
410 STA#GS;LDY#F250,X 1908: LL17 
429: LLS 1818 LDA@R2I; JSRBEFF4 
450 ROR A;ROR#6S; DEY 1920: LL 18 
440 BNE LiS:LDY#F 1850 LDAN66,X; JSRHFBZ2 
458 AND&F1D5,Y 1848 DEX; ENE LL18 
460 BNE LL7;LDARFIE4,Y 1058:LL19 
478 AND#653 ENE LL7 1860 ASL#69; BCS LL20 
48B:LL6 1878 LDA TT1,Y; JSRAFFES 
490 DEX;BNE LL4;CPY@HE 1880:LL28 
590 BNE L13;LDY&A 1890 DEX; DEY;BPL LLI4 
Sie LDXE8L1; STYRF 1188 LDAÈNBI; STANEL 
S20:LL? 1118 JAPNC5O4 
522 LDANF2B2, Y; CMP@NF 1120:PPB \ascii-dump 
54B BNE LLBsLDAAL 1128 LOveeFF 
550:LL8 1140: PPS 
560 ANDENF; STARGS tise INY;LDA(H9S) ,Y 
570 STANPZ-aant, instr. 1168 CMP@#20; BCC PP2 
Set STAKD:STXHER 1170 CMF&R7F; BCC FPS 
ER LDXER LD: IJSFHEIFL 1180;FP2 
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1198 
1248: PPS 
1218 
1228 
1230: PP4 
1240 
1250 
1260:PPS 
1270 
1280:PF& 
1298 
1300 
1518:PP7 
132 
1530: VVI 
1348 
1359 
1368: VV2 
1378 
1580 
1398 
1480 
1410 
1428 
14358 
1440 
1450: VVS 
1440 
1470 
1380 
1490 
1509 
1518: VV4 
1520 
1520 
1540 
1558 
1560: VVS 
1578 
1580: 4V6 
1598 
1608 
1618 
1620 
1638 
1640 
1650: VV7 
1660 
1678 
1682 
1690 
1780 
1718 
1729: VVB 
1738 
1748: VVG 
1758 
Bij branche’ 
moet warden 
toets wordt 
Maxaumaal zi 


LDAGHZE 


JSRHFFF4 
DECHI2:BFL PPI 


JSRHFIFD; INY 
CPY@4;BNE PP4 


RTS 
\test printer 

LDA#EBDC: EEG FP7\uit 
LDA&I \aan 


STA#95I ETS 
\branch af jump 
LDxe24; LDYEG 
LDALRRI) Y 


DEX; DEX; BMI VVS 
EMP TT2,X; ENE VVZ 
INX;LDA TT2,X 

BEU VV3 \jsr 
CMFEI; BER VV6\rts 
CHPE2; EEG VV7\branch 
CMPEZ; BEG VV1D\ jp 
CMPE4; BEG VV11\ jmp () 


JSR VV12; BES VVS 
LDX#96;BEQ VVS 
DEC#6: DECHIG; LDXHIG 
LDA#FA; STARLAD, X 
LDA#9IG STARLAL,X 


LDY@1 
LDAC#9I) ,Y; STAHIO 
INY;LDA(#95) ‚Y 
STAR? 1 


RTS 


LDX#96; BMI VVS 
JSRHFFED 

INC#9&; INCH9& 
LDAR#140,X; STAR9D 
LDAR141,X4 STARO 1 
RTS 


JSR VVI2;ECS VVS 
LDYBIsLDA(HPS) ,Y 
BMI vvo 

CLC; ADC#92; STARE 
BCC VVA 

INCH9 1 


RTS 


STA#?2;LDAEG 


5 en jumps vraagt de disas 
voor een 


yn 
ad. 
sprongen. 


met de tmets 
de disas verv 
in er 64 J 











1780 SEC; SBCHI2; STARIZ 
1770 LDA#92 

1780 SEC; SBCHI2; STARIO 
1790 BCS Vve 

1800 DEC#F1; RTS 

1810: VV10 

1820 JSR VV12;BC5 WVS 

1830 JMP vv4 

1848: VV11 

1852 JSR VVI2; ECS WVS 

1660 LDyer 

1878 LDA (#93) ,Y; STAHI2 
1880 INYsLDA(#93) „Y: STARIE 
1890 Loven 

1204 LDA (#92) ,Y; STAHIG 
1910 INY; LDA(H9D) „Ys STAR9L 
1920 RTS 

1930: VV12 

1940 LDA@Z; JSRHFEFB 

1950: VV13 

1940 LDA; STAHEL 

1270 JSFAFTDL 


19883;$P="DO YOU WANT TO JUMP EY/NJ " 
199BF=P+L. Fi 

2230 NOP; JSRHFFES; PHA 

2014 JSR#FE22; LDAERB 

JSR&FFF4; JSRHFFED 
LDA#95;BEO VV14 





2244 LDAE2; JSRHFEFE 
2050: VV14 

2064 FLA 

2078 CMP@CH"Y";BNE VV15 
2088 JSK#FFED 

2098 CLC;RTS 

2108: YVIS 

2118 CMP@27;BNE VV16 
2120 LDAE#BO; STAHEL 
2130 JMPHCSSB 

2140: VV16 

2150 SEC;RTS 

21601 

2178 TTO =P 

2189 IF=RFOFFFERF GP 4e 7F7FEFCF 


PI8=#B7BICFFS;P!12=4F9B7FF 
vaP+ 15; TT CD =P 
Ip=#BD;P!1=292C5941 
Pl5=#40282C58; P=P+I 





2238 TT(2=P 
2240 \P=$634CH46E JREN jmp 
2250 P!4=#250D270 ;REM bve ,bvs 
2260 F!B=#2380210 ;REM bmi,bpl 
P112=#29002B0; KEM bee,bes 
F!16=#2D002FO; REM bne,beg 
P12@=#0208160;REN isr, rts 
PaP+24 
RETURN 


e disas print cok de ascci-waarden. 
ct er gesprengen moet werden, Geantwoordt 
sprong of een branch. Rij iedere andere 
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In Acorntjesbrood 2.5 heb ik op pag.18 beschreven dat ik de 
Wordpack heb omgebouwd naar een beeldscherm van 64 kolommen en 
24 regels m.b.v. de VDU-64 van Jos Horsmeier. De taen 
gepresenteerde versie (release 0.0) kan niet in een 4K eprom 
worden gezet, omdat er van #9800 tot #9ROG een tabel met de 
karakterset voor de VDU-64 staat, die je dan dus steeds apart 
moet inladen, wat voor niet-floppy-disk-beritters zoals ikzelf 
nogal lastig is. Deze tabel kan niet in de Wordpack zelf worden 
opgeslagen wegens plaatsgebrek. Nu is het zo dat deze tabel 
dubbel is uitgevoerd, en dus ook in anderhalve geheugenpagina 
zou kunnen worden opgeslagen. Voor zo'n compacte tabel is wel 
plaats in de Wordpack, maar dan moet ik de VDU-64 routines 
ingrijpend wijzigen, waarvoor de tijd en zin (vooral dat 
laatste) ontbreken. Toch wou ik (en anderen ook) de &4 kolommen 
Wordpack graag in een eprom hebben, als vervanging van de 
normale Wordpack, die aÌ geruime tijd werkloos op de 
schakelkaart zat. 


In de hier gepresenteerde versie (release 0.2) is voor een m.i. 
zeer aanvaardbaar compromis gekozen: De compacte tabel van 
anderhalve pagina met de karakterset is in de 4K Wordpack 
opgeslagen, die bij binnenkomst van de Wordpack (dus na intypen 
van ED64) wordt gekopiëerd en tegelijk uitgevouwen tot 3 
pagina's naar #9800-#9B00. 

Dit gaat zo snel dat je het niet eens merkt en als je RAM hebt 
gestapeld van #9800-NPFFF (dit gebied wordt bij mij alleen als 
scratchpad gebruikt) is deze versie te beschouwen als een 4K 
Wordpack die in eprom kan worden gezet. Hij is dus wel op te 
slaan binnen 4K,maar draait niet binnen Ak. 


Behalve het uitklappen van de tabel met karakters zijn in deze 
versie (release 0.2) de volgende wijzigingen aangebracht t.o.v. 
release 0.0 (voor de wijzigingen van release 0.0 t.o.v. de 
normale Wordpack zie Acorntjesbrood 2.3 pag.18.): 


— Gewijzigd 'Q' (Quit)-commando, 
Na het indrukken van Q (Quit) wordt in de normale Wordpack 
de tekstfile geconverteerd naar een Basic programma. Dit is 
in de meeste gevallen erg hinderlijk omdat de Wordpack 
meestal voor tekstverwerking wordt gebruikt. In deze versie 
is het mogelijk om naar keuze al dan niet de tekstfile te 
converteren. Dat gaat als volgt: 
Na het geven van het O-commando wordt naar het ‘normale’ 
scherm teruggeschakeld en wacht de Wordpack op een toets 
aanslag. Als U op 'C' (Convert) drukt, wordt de tekstfile 
naar Basic geconverteerd, zoals dat normaal ook het geval 
is. Drukt U op een andere toets, dan wordt direct de 
Wordpack verlaten en bevindt U zich in de Basic-text-space 
vanaf #8200, naar een NEW wordt uitgevoerd. 
Gewijzigd 'O' (Output) commando. 
Om de uitvoer die bij het 'O’ commanda op de printer wordt 
afgedrukt, cok op het beeldscherm te kunnen bekijken, is in 
Acornt jesbrood 1.2 op pag-7 een zgn. ‘Papterspaarder 
beschreven. Deze is in een iets uitgebreidere vorm in deze 
Wordpack opgenomen. 
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Hiermee werken we als volgt: 

Na het geven van het 'O'-commando wacht de Wordpack op een 
toetsaanslag. Als U nu op 'P' (Frinter) drukt, verschijnt de 
uitvoer op de printer, net zoals dat normaal het geval ís na 
‘0’. Drukt U op een andere toets, dan verschijnt de uitvoer 
op het scherm. 

Bij elke nieuwe pagina hoort U een piepje en wacht de editor 
op een toetsaanslag alvorens verder te gaan met het 
afdrukken van de uitvoer. 

Als de hele tekstfile is afgedrukt (of het scherm of op de 
printer), wordt dat aangegeven met 2 piepjes . Nu wacht de 
Wordpack op een toetsaanslag zodat WU de laatste pagina ook 
rustig kunt bekijken. Hetzelfde gebeurt als U het afdrukken 
onderbreekt met de ESC-toets. 

De uitvoer is te stoppen met de SHIFT-toets (met de S van 
stop) en kan weer worden doorgestart met de ETRL-toets (met 
de C van continueer). Drukt U zowel SHIFT als CTRL in, dan 





wordt het afdrukken van een karakter sterk vertraagd, zodat 
U op Uw gemak kunt meelezen. 

Met het -…j commando is het mogelijk om een rechte 
rechterkantlijn te maken. Hierbij kan het af en toe gebeuren 
dat , als en in de tekst 


een-erg-lang-woord-voorkomt-zoals-dit, de ruimtes tussen de 
woorden wel rg groot worden. (Deze zin lijkt me wel een 
goed voorbeeld.) Doordat het nu mogelijk is om van te voren 
precies te kunnen zien hoe de tekst op papier verschijnt, 
kan dit voorkomen worden. 


— Nette layout na ‘Paper '. 


Bij het printen van de tekst via het ‘O'=commando drukt de 
Wordpack bij elke nieuwe pagina het woord ‘Paper’ af en 
wacht op een toetsaanslag, als U tenminste .k heeft 
gebruikt, Dit om bij gebruik van losse velletjes de 


gebruiker de kans te geven een nieuw vel in te draaien. 
Helaas wordt hierd * nt te tebet ter Tt 
beeldscherm versch 

voorkomen worden n . z 

nodig) een toets is aangeslagen, 5 Delete-karakters 
(ASCII-waarde #7F) afgedrukt. Het woordje ‘Paper ' zal 
daardoor weer verdwijnen. Heeft U .k niet gebruikt, dan zal 
‘Faper’ meteen weer verdwijnen, waardoor het lijkt of het 
niet is afgedrukt. 


Release 0.2 is t.o.v. release 0.0 intern behoorlijk gewijzigd. 
In release 0.0 was nog aardig wat plaats vrij, die in release 
0.2 helemaal fs gebruikt. De hele eprom is dus vol. 

(De nummering release 0.09 en 0.2 doet vermoeden dat er ook een 
release U.1 is. Die is er inderdaad even geweest, maar werd al 
snel opgevolgd door release 0.2. In de welkomstekst na ED64 
wardt ondermeer dit versienummer afgedrukt.) 

De bier gepresenteerde Wordpack is voor niet-80-koloms-kaart 
bezitters een (vind ik zelf) behoorlijke verbetering van de 
mogeli jheden van de Atom als tekstverwerker, doordat je, als je 
een maximale breedte van 65 karakters aanhoudt (zcals deze 
tekst), precies je tekst kunt bekijken zoals die op papier zal 
verschijnen. Ook 80-koloms-kaart bezitters kunnen hun voordeel 
ermee doen, vanwege de ingebouwde faciliteiten om de uitvoer op 
de printer te bekijken zonder een al te groot papierverbruik. 
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DECADOS 


Decados bestaat uit n tiental uitbreidingen op de normale ATOM-dos, die 
gerealiseerd zijn op een manier die de compatibiliteit met de ATOM-dos zo groot 
mogelijk maakt. Die compatibiliteit is verkregen door geen van de bestaande 
routines te verschuiven; de start-adressen zijn dus niet veranderd. 





De eerste zin van dit verhaal is met opzet voorzichtig geformuleerd, omdat er 
uiteraard wijzigingen nodig waren om decados te kunnen programmeren. Een van die 
wijzigingen is het verwijderen van de VDU-routines. Het VDU-commando bestaat nog 
wel en wordt dus nog steeds correct uitgevoerd, maar de read- en write vectoren 
wijzen nu niet meer naar een bestaande routine (bedoeld voor de originete 
VDU-kaart van ACORN), maar naar een JMP (#2208) en JMP (#2202). Deze adressen 
worden niet door de dos gebruikt en kunnen dus eventueel gevuld worden met 
adressen die wijzen naar een VDU-routine, die dan elders in RAM moet staan. Hier 
kan natuurlijk de originele ATOM VDU-routine staan (voor de viditel-kaart), maar 
dat mag ook een eigen geschreven routine zijn voor een andere kaart (B@-koloms 
kaart), Indien u het VDU-commando niet gebruikt hoeft u #2200-H2203 niet te 
vullen. Samengevat: nadeel: geen originele routine in de dos-rom {is echter nog 
in ran te plaatsen); voordeel: mogelijkheid voor andere routine (voor andere 
kaarten) en vooral een hoop lege ruimte in de dos-ron. 


De ruimte die zowiezo al leeg was (in de ACORN-versie van de dos) is natuurlijk 
ook in gebruik genomen door decados. Hierdoor vervalt de mogelijkheid van *OPT 
luit de TELEC-versie), maar die is nu ook niet meer zo nodig. 


tien voordelen 


E. Er zijn een zestal nieuwe dos-commando's gemaakt 
RENAME <filenaam> <tilenaam> 
geeft een nieuwe naam aan een bestaande file 
voorbeeld: 


RENAME JAAP JOEP 
de filenaam JAAP verandert in JOEP 


#INFALL ( <drive-nummer } 
geeft een lijst van alle files met hun adressen, 
Het drive-nunaer mag weggelaten worden. Wordt het drivenummer toch gebruikt, 
dan wordt de drive met dat nunmergeselecteerd. 


*CDS 
schakelt over van DOS naar de standaard COS 
Eventueel daarna dus nog overschakelen naar 1208 Baud (CDS 1. 


*DOS 
reset het Disk Operating Sysem 
Er komt dus geen foutmelding als #DO5S tweemaal gegeven wordt 
Als bijverschijnsel kan het ook gebruikt worden om de drive te stoppen. 


«TYPE Cfilenaam> 
de file wordt als ASCIl-file afgedrukt 
Dit coamando is handig voor het bekijken van textfiles en macro-tiles (zie 
verder). Het is niet geschikt om BASIC programma’s te bekijken, omdat daar 
controltekens in voorkomen (regelnummers staan niet in ASCII-code, maar als 
getal in het geheugen). 
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*CREATE <filenaam?> 


voor het aanmaken van textfiles en macro-files. 

Na create verschijnt er een dubbele prompt ‘>>’ en vanaf dat ogenblik wordt 
alles wat u intikt in de file opgeborgen. 

Een uitzondering hierop is DELETE. De routine wordt gestopt door ESC of 
<CTRL D> (=EOF, End Of File). 

Als de file reeds bestaat volgt de melding EXISTS. De oplossing hiervoor is 
de file te DELETEN of te RENAMEN. 


Als tweede uitbreiding is er hu de mogelijkheid om een qualifier te 
gebruiken in een filenaam. Voorbeeld: 
LOAD "B: OPSLAG" 

De file wordt nu gezocht onder de qualifier ‘B’, Dit werkt vele malen 
gemakkelijker dan #USE, Ook is het nu mogelijk om de qualifier van een file 
te wijzigen. Voorbereid: 

*RENAME H:O0PSLAG D: OPSLAG of bv. 

*RENAME B;OFSLAG :OPSLAG 
in het eerste geval verandert de qualifier van 'B' naar 'D' en in het tweede 
geval van ‘B’ naar een spatie 


Er is nu vok een 29. INFO-switch, Deze switch kan bij ieder commando worden 
gegeven, maar bij sommige commando's heeft dat geen effect. Hoe gaat dat? 
Voorbeeld: 

*LOAD/I STRIPS 

*DELETE/I PMD 

DEL. /I PMD 
De schuine streep {voor switch} en de letter I (de naam van de switch) 
moeten direct achter het commando staan. Het resultaat is dat #MON aan staat 
voor de duur van dat ene commando. 


Naast de I-switch is er ook een M-switch. Deze kan echter alleen bij #*CAT 
gegeven worden. Voorbeeld 

*CAT/M 

x/M 
Indien deze switch gebruikt wordt, gaat de schijf niet draaien, maar wordt 
een catalog uit het geheugen (Memory) gehaald 


Bij het #S5AVE commando mag gebruik worden gemaakt van optelling. Voorbeeld: 
*BAVE QUEUE 3099 +2540 +50 
Dit komt overeen met: 
*BAVE QUEUE 3089 5240 5050 
Het is vooral handig als je wel de lengte en het start-adres van een file 
weet, maar niet het eindadres. 


Bij het gebruik van een filenaam als pseudo-commando bepaalt nu het 
executie-adres wat er gebeurt, Is dit adres ongelijk aan #0088 dan gaat 
alles zoals het ging in de ATOMdoes, Is het echter wel gelijk aan nul, dan 
wordt is de file blijkbaar geen machinetaal programma (die beginnen nooit op 
#2000), maar een random-acces- of macro-file. Zo'n file wordt nu niet 
gerund, maar uitgevoerd mbv #EXEC. 
Dat dit zeer handig kan zijn blijkt uit het volgende voorbeeld: 

>ECREATE DEMO 

> >*NOMON 

>>*L0AD DATA 8208 

>>*LDAD BASE 4000 

>718=#40 

>>OLD 

2 >RUN 
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9, 


18. 


>> (ESC of <CTRL DD) 
> 
>eDEMO lis nu gelijk aan *EXEC DEMO 


PASOP: EXEC gebruikt de read-vector (slaat de oude vector wel op) en werkt 
daardoor niet met CHARON samen, 


Het #60 conaando is verbeterd. In de gedis-assembleerde ATOM-dos is 
duidelijk te zien dat de programmeur het volgende mogelijk vond: 

*LOAD RELOC gevolgd door: 

+50 
Een #60 zonder adres start het laatst ingeladen programma op het 
bijbehorende executie-adres. Door een kleine denkfout werkte dat echter 
niet. Nu dus wel. 


De catalog verschijnt nu over drie kolommen, zodat de inhoud van een schijf 
net veel files nu ook op een scherm past 


Voor nummer negen was helaas geen ruimte meer over in de EPROM. Die ruimte 
kunnen we nu echter benutten voor het maken van een opmerking: alle routines 
in decados maken geen gebruik van de BASIC-, Floatingpoint-, of utility-ROM, 
Hierdoor kunnen ook systemen met BASIC in RAM gebruik maken van decados (bij 
mij zelf zit alles nog gewoon in ROM, maar je weet maar nooit. Compatibel 
aet de toekomst). 


Haakjes, kort maar krachtig 
Enkele voorbeelden (hopelijk duidelijker dan tien regels tekst): 
“DELETE FILE(1 2 35) “DELETE FILE1 
+DELETE FILE2 
“DELETE FILES 


*{UNLOCK DELETE) PROTECT #UNLOCK PROTECT 
“DELETE PROTECT 
SRENAME O(ON AA)R (AAP MIES)JE HRENAME DOOR AAPJE 


RENAME DAAR MIESJE 
Haakjes maken het dus mogelijk om iets meerdere keren te doen, waarbij er 
dan steeds net iets anders moet gebeuren (andere filenaam, ander commando 
oid). 
De ronde haakjes magen niet worden genest (resultaten zijn dan wel 
voorspelbaar, maar waarschijnlijk niet wat u voor ogen had). 


Mensen in het bezit van een mini-schakelkaart kunnen een en ander zo 
uitproberen door hun RAM naar het gebied #Exxx te schakelen, maar 
uiteindelijk is het de bedoeling om decados in eprom te zetten en de 
ATOM-dos eprom op de controlter-kaart te vervangen door de decados egrom. 
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18 PROGRAM DECADOS 
20 REM by FRANS 


40 REM SORRY, NOG UIT DE TIJD DAT IK GEEN MINI-ASSEMBLER HAD. 
50 REM EEN ROMMELTJE DUS !!! 


70 Q=?$BOOILHBD;REM SHIFT? 


90 DIM LL4G,EEL,MM4G,NN4D, KK40 

180 FOR I=0 TO 4B;LL(I)=99P;MM(I) 299 NN(I) 999; KK (I) 2990; NEXT 
118 COPY HEGOO,KEFFF, #50D0 

128 B=HEI-HSO;C=KEIUG-HSOUD 

130 T=tEF64-1 

148 PRINT $21;GOSUB a 

150 IF Q P‚,$6 

168 GOSUB a;PRINT $6 

170 85IEI=HEF; INSSE4=HIA 

180 ?R56FB=#25; REM READVDU 

190 ?8SEFA=NNOA256; INSEFF=NNB/256+B; REM HAAKJES 

209 ITIIBGEKKA/256+B; INSSO7=KKE 

210 ?#545A=#FE; REM NOMON 

228 RAM;REM MINISCHAKELKAART RAM OP #EORG 

239 COPY #5002,45FFF,HEDOO 

240 +D0S 

258 END 

260aP=#5FIA;L 

270:LLD; DEY;STY #9A; 

280:LLIjLDY #9A; 

29B:LL2; INK; 

L3s INY;LDA T‚X;BMI LLS;CMP #100,Y;BEG LLZ 

31@:LL4; INX;LDA T‚X;BPL LL45 INX;LDA #182,Y 

S20CMP @RZEFBNE LLI;JDEX; BCS LLS 

330:LLS; STA #9B;LDA T+1,Xs JMP NN3L+C 

5401 
359 $P="RENAME" 










=P+LEN(P) 3 ?P=lL6/256+B;P?1=LL64256jP=Pt2 
=P4LEN(P} ={LE/256+B; PP L=LLB42565 
+LEN(P) ; 7 L18/256+B;P?i=lL10%256;P=P+2 
=P+LEN(P} E3;P?1=#00; P=P+2 
LL12/256+B; P71=Lt 124256; PaP+2 

zP=P+LEN(P); PPall15/254+B;P? Let 1542563 P=P+2 
410 ?P=RE4GP?1ERCSjP=P+2 

42DL 

830\infall 

Q4D:LLB;JSR WE2IIJLDY #2105; 

450:LLISJSR HELAF;TYAGPHAGJSR HEIBF; PLA; TAY;BNE LL9;RTS; 
4&0\memory only 

87B:KKI25 JSR #FB74;CMP @H2F;BNE KK13;LDA #1OL,Y3CMP @RAD 
ABBDNE KK1S; INY; INY;JMP HESCC 

4ID:KKIJ; JMP HE2SL 

500\ge 

SiD:KK6;LDX @#FB;JSR HEDDA; JMP #ES68 

220 \save+ 

S3B:KKA;JSR HEGAL;ISR HEGB4;BEG KKI;LDX @RA2; ISR KKIG+C 
SAQBEO KKA;LDX @RGESJSR KK1D+CHJMP HESFA 

SSE:KK1D;JSR HFB76;CMP @#2B;BNE KKI1s IN; JSR #EDB6; PHP 
S6D;CLC;LDA B,X;ADC #9C;STA B,X;LDA 1,X;ADC #PD3STA 1,X 
S7EPLE;RTS 
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Kil; JMP #E9B6; 

SIE: KKT; INP LEIDS; 

480); sP="DECADOS, 5";P=#5SÓF;C 

61@\go 

62AJMF (NBOFD) 

6301; USIDS=(KKL+CI/ 2563 MIIDAE(KKE+C GL 
648);P=45D22;C 

650\writevdu 

GEB:EED; IMP (42200) 

b7Ö\readvdu 

GEBsEE1; JMP (2202) ; 

&7B\rename 

700:LL6;LDA HAC;PHAGJSR HEBISJJER NE1AC;PLAGSTA HAC 
TIBTYA;PHA; JSR HELBB 

72BLDX @#40;STX #VAJLDX @NFAGJSR HEBE 
738PLA; TAY; JSR #E198 

74BLDA #2087,Y;AND @HID;ORA #AC;STA #2097,Y;LDX Cb 
75@:LL7;LDA HAS,X;STA #20065,Y;DEY; DEX; BPL LL7 
T6BINP #ESAI 

77@\cos 

788:LLIGGJSR HESCCHLDX ERF 

79B:LLIIJLDA KFFA2,X;STA #20C,X;DEX;BPL LL11 

BRELDA @REF;STA N206;LDA @NFB;STA #207;RTS; 
Bi®\macro 

820: MMO; 

BIELDA #218A,Y;ORA U21GB,Y;BNE MAZ;LDY ANBBIJSR HESCH 
B4BJSR SFFCE;TAY;JSR #ESOO; JMP #E520 

850: MM2;JSR #E487; JMP #E4F7 

B65B\type 

87@:LL12; JSR HESCIGJSR HFFCE;TAY;BNE LLIS;JMP #ESl6: 





OU:LLE4GJSR UFFCHIJMP #E4GU; 

91B\create 

920:LL15;JSR HESCHIJSR #FFCE;TAY;BEG LL26 

JIOISR HEBIL; Il; SPA"EXISTS"sP=P4LENLP) ; (3 BRK; 
zLL26;CLC;JSR #FFCE; TAY 

Li6;JSR KFFED; 

F6O:LL2I:LDA @RZE;JSR AFFFAGJSR RFFF4; 

F70:LL17;LDX @#3F; 

96: LIB; INX;BPL LLI9; 

99B:LL24; ISR HFFEI;CMP @#7F;BNE LL24;JSR AFFF4 
1889: (128; DEK; 

1018: LLIJ;JSR &FFEG;CMP @R18;BEG LL16;CMP @47F;BER LL20 
1828CMP @RIE;BEG LUI4G;CMP @HQ4;BEG LL14 

1G5ÖSTA #1B9,X;CMP @KED;BNE LL1S 

1@40LDX ##48; 

19SB:LLES;LDA H18B,XGJSK AFFDI;INX;CMP @RBD;BNE LL253BEG LL21; 
i86@\angle brackets 

187E:NN20: DEX; 

1098: NNI; JSK NN6*C;AND @NFF;BMI NNI 

I8FBISR NN2+C;BEG NN20; 

110B:NNI4; CMP @#22:882;BNE NNII; 

E11G:NN9; INY;LDA #22C8,Y; 

LL20:NNIE: ISR NNI3SC; ISR NN24C;CMP @#22:48B;BNE NNI; 
LIZE: NNI1; ISR NN6+C4JSR NN24C3BNE NNI; DEX 
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115B:NNO:INY;LDA #22C8,Y; 

1164: NNI2;CMP @#29; BEB NNS; 

1170B:NNI3;CMP EBD; BNE NN4; 

118BJMP #ESD3: 

1198: NN5; PLA; PLA: 

1288: NNA; RTS: 

1210:NN2; STA #108,X; INX; 

1220: NN RA @#80;STA #22C0,Y;CMP @#AO; BED NNI; STA #9A; 
1230: NN3: RTS; 

1248\info switch 

1250:NN3B:LDA #CO;AND @#DI;BNE NN39 

1268LDA #EFSENE NNS 

1270:NN39; JMP HEIEF 

1288\ 

1290: NNO:LDX @#40; STX HIA 

1388: NNIS;LDA HIFF,X; 15 P?-1=0; CG STA H22BF,X;DEXGBNE NNI; 
131O:NNI9;LDY E#FF; 

1320:NNi6; INY;LDA #22C8,Ys:CMP @#28;BNE NN17 
1330JSR NNI+C; JMP NNL6+C; 

1340: NN17; STA #100,X; INX;CMP €#BD;BNE NNI6 
1359LDA #9A;BEG NN4 

1368: NN23:JSR HESES;LDX GU:STX #PAGBED NN19; 
1370\quatifier 

1580: KKD;CMP @#3AJBNE KK2;CPY @1;BEC KKS;BNE KK2; 
139B:KKS:LDA #A5;STA HAC;LDA &#20; STA HAS 
1508:KK4; INC #9AGBNE KK1; INC #9B; 

1418: KKI:DEY; BPL KK4;BNE KK3; 

142D:KK2; STA REDAS, Y: 

14508: KKT; JMP HEDBD; 

1440\switch info 

1450: NNE5;LDA #E36D, Xs 

1460: NN31; FHA 

1470:NN32;LDA #108,Y;CHP @RZF;CLCGBNE NNS43LDA #S01,Y;CHP E#49 
14BOCLC;BNE NN544 INY; INY; SEC; 

1490: NNZA;PHP;LDA #CO;LER A;PLP3ROL A;STA #CA;PLA;JMP #E412 
1500); P=#588A; £ 

1510\qual 

S2BJNP KKO+C; 

15301;P=#54F 4; LC 

1540\macro 

1550JMP MMO+C 

1560); P=#5257: 0 

1578\memor y 

15BOJSR KK12+C 

1590); P=4540F;L 

1&688\switch 

1E1AJMP NN35+C 

16201; P=#51BE;( 

165@\info switch 

164OJME NNSB+C 

165081; P=#5295: 

166OJSP HEDECIDEC HBB:BPL LL27; JSK HFFED;JSR HEGEC;DNE #558D; 
167B:LL27; 

1680); P=#5310;C 

1&90LDY @2;STY HBB; JSR HEAFS; 

17881 

TIR KETUEN 
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Waarschijnlijk doordat de Aquarius-computer de markt gaat verlaten, zijn er van 
dat aerk een aantal uitbreidingen te koop voor prijzen die te gek zijn. 

Een voorbeeld, 16k geheugen-module (RAM dus) voor f BĲ,‚-. 

Wat heeft dat nu voor de Aton te betekenen? Wel de Aquarius heeft een EMhz 6582, 
net als de Atom. Het zou dan ook vreemd zijn als RAM van de een niet op de ander 
“draait®, Een gokje blijft het natuurlijk wel; er kunnen stroomvreters gebruikt 
zijn, of dynamische RAMs. Dat gokje heb ik genomen (toen lek nog f.13%,- kostte) 
en met geluk. 

In die modules zit de HM&!l6 statische CMOS RAM. In beginsel geschikt vaor 
battery-backup, 

On bij het begin te beginnen, 

Voor gen van de genoemde bedragen koop je bij FUNTRONICS (nee meneer Keizer, 
daar heb ik ook geen banden mee } een kartonnen docs van 16xllxscm. Daar komt 
dan een houder uit met de module. Die module 15 van plastic en meet 7x7,5x4,Scm 

Twee schroeven geven toegang tot het elektronischecentrum, dat echter nog wel is 
verpakt in biík, Wat je overhoudt is een printje van bóxb4xBmm 

Hoe krijg je daar nu B stuks 6116 op, zal de snelle rekenaar vragen; een 6116 is 
immers pet zo groot als een EPRDM(32x15x5mm) 17, 

Dat klopt maar in de geautomatiseerde bestukkings-industrie is de FLAT-PACK 
behuizing aan het terrein-winnen. De 6116 die hier gebruikt is heeft dan ook de 
toevoeging FP 4 achter bii6 staan. De FP staat voor FLAT-PACK en de 4 staat voor 
20önsec. (logisch toch). Nou, FP-ic's zijn zo'n twee maal kleiner in alle 
richtingen dan de gewone ic's en zij worden bovendien niet met d'r pootjes door 
gen print gestoken, maar bovenop de print gesoldeerd 

Daardoor passen er op dat printje met gemak 4 bllbs aan iedere kant. Voor de 
decodering van de chip-select lijnen zit er dan ook nog een 74LS138 op de print. 
Dat is dan weer zo'n gewoon ic,, en ik moet zeggen, die staat er wel onelegant 
bij, zo hoog op de poten. 


Hae het een en ander bedraadt is, zie je op onderstaand schema. Daarin staat ook 
hoe die module aangesloten kan worden op de ATOM (PL6/7). Voor de duidelijkheid 
: deze tekening getdt voor gebruik van die RAMs op de addressen #4DDB tot 
#8208. (zonder battery-back-up). En de Addres- en Databusbuffers moeten zijn 
geplaatst.tic 2 t/m 4) 

Voor battery-back-up moet in plaats van de 74LSI38 een 74LS156 worden gebruikt 
tzie fig,2) 

De laatste heeft een open-collector uitgang, Dek de NWDS moet een oc. krijgen 
en al die uitgangen natuurlijk ook weer een pull-up weerstand naar de + van de 
battery. Verder is nog een 74LSBl of vergelijkbaar nodig. 

De makkelijkste realisering daarvan is : een set weerstanden ap de plaats van de 
74L5138 en een 74LS5156 op een apart printje elders. De Agu.print punt 25 komt 
dan aan de +tbatt.. 

Moet de aodute zijn dienst bewijzen van B tot #4380, dan is er 1ets meer nodig. 
Dan soet nl. alles wat daar nu zit verdwijnen. Alle “lage” 21145 (dat scheelt 
338A per stuk aan stroom) en de Floppy Disc Controler (die zit Lindien aanwezig? 
op #9ABB tot 2407), 

Trek alles wat 2114 neet en niet rechts op de ATOMprant zit eruit fici® t/ml9 
+ticSt en 52), Verder moet icb eruit, 1c5 punt2 t/m 6 aan de +5V en 1c5 punt 12 
losgenomen en ook aan de +5V 

Ktaar is Kees, voor die niet floppybezitters in elk geval. De floppybezritters 
moeten ook nog zorgen dat als de FDC 18271) spreekt, de RAM z'n mond houdt, Dat 
kan zoals getekend in fig.3, maar misschien cok door de adressering van die FDC 
te veranderen. Zie daarvoor een ander artikel in dit blad, Door nu A14 aan te 
sluiten op de Aqu.print punt 358 ipv.punt 18 en punt 18 aan de +S5V., is die RAM 
geadresseerd op B tot #4020. 

Tenslotte zoals ik het nu heb zitten. 

Vooropgezet: ik heb zo ongeveer niets meer standaard, maar wel club-compatible. 
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lin principe kont het op hetzelfde neer). Ik heb 4 I6kRAM modules geplaatst. Een 
voor het schermgeheugen  (#8Q00-#OFFF). Inderdaad l&k is tweemaal wat werkelijk 
nodig is, maar nu kan ik nog eens overschakelen op een tweede scherm. 

De tweede zit van 8 tot#4008. 

De derde zit van #4000 tot #8400. 

En de vierde zit dubbel geparkeerd op #IOBD-HIFFF, #H6BBA-HIFFF en op HADAB--als 
#BFFF op nul staat. (EP.O). 

Die vierde module heeft battery-backup. Deze heeft bovendien voorrang boven de 
andere op dezelfde adressen. Wil ik de andere RAM gebruiken dan schakelt dat om 
met #BFFF=#8B, De WRITE-protect wordt uitgeschakeld met #BFFF=8. Na inschakeling 
van de voeding komt #BFFF automatisch ap @, zodat direkt de battery-backup-RAM 
voor komt (protected). Daarin staat dan cok het Cí-systeem. 

Daar komt nog bij dat de floppy-controler op #BFOB-#BF17 zit. Dit werkt nog niet 
goed. Daarover in een ander artikel meer. 

De adres-bus buffer (ic4) gebruik ik niet, omdat alles in de kast zit. De in= en 
uitgangen zijn met elkaar verbonden. 

In fig.4 zie je hoe het een en ander is verbonden. 


noot * 


bij de firma ALLWAVE zijn de 16 K. modules gesignaleerd voor 4 39,- 
gesignaleerd. 
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SPRITE EN PAINTEDITOR 


in Acerntjesbrood 2,4 heeft U altes kunnen lezen over GAGS, een 
fraaie toolkit van Gerrat Hillebrand, voor het maken van 
spelletjes en leuke grafische plaatjes. 

Kij het maken van een spelletje zul je al gauw sprites willen 
gebruiken, Hiermee kun je gemakkelijk figuurtjes op het scherm 
zetten en laten bewegen. Een sprite moet eerst gedefinieerd 
worden voordat je hem kunt gebruiken. Dit kan op tuee manieren: 
met het overzichtelijke, maar geheugen-vretende DEF-statement, 
pf met het compacte CREATE statement. Rij CREATE moeten we 
steeds van binair naar hexadecimaal converteren en kunnen we 
(dus) moeilijk een sprite vajzigen. Toch zul je. zeker in de 
uiteindelijke versie van je preogramma, het CREATE-statement 
willen gebruiken, wanwege de compactheid ervan. Eigenlijk 
moeten we een gemakkelijke manier hebben om een sprite te maken 
en te wijzigen, terwijl ue wel warn het CREATE-statement gebruk 
maken. 

Met de hier gepresenteerde SPRITE EDITOR is dit mogelijk: we 
kunen nu op een erg gebruitersvriendelijke manier een sprite 
maken en bewerken. 

Om dit programma te kunnen runnen moet U F-Charme op het #IXXX 
gebied hebben gelocaliseerd, zoals dat is beschreven in 
Acarnt jesbrood 2.4. Verder uiteraard de bi jbehorende 
schakelsoft en GAGS-VL.OE. Misschien werkt het programma ook 
wel met P-Charme gewoan op #AXYX en goede schakels6ft (tt), 
maar ik heb dat niet uit kunnen proberen. In elk geval maet U 
F-Charme en GAGS door elkaar heen Funnen gebruiken, dus 
GAGS-statements in procedures enz. 

Voor de bediening van de sprite editor wordt gebruik gemaakt 
van ‘een joystick. 











iTE EDITOR 





Na RUN kunnen we kiezen uit het aanmaken van een nieuwe sprite 
af het editen van een al bestaande. In dat laatste geval moeten 
we het HASE-adres van het gebied waarin de sprite 15 opgeslagen 


opgeven. Dan volgt een overzicht wan alle bestaande sprites in 
dat geheugengebied. We zien achtereenvolgens het volgnummer van 
elke sprite, het assignmentnummer (is & als de sorite geen 
DUAMEN heeft) en de maam van de sprite, Mu geven we het 
volgnummer van de te editen sprite op. 

Dan wardt het eigenlijke plaatje (zie screendumpì getekend 
waarin het bewerken van de eprites zich afspeelt. In het geval 
van het editen van een sprite verschijnt die sprite ook in 
beeld. 


In het raster van Bti6 hokjes Hunnen we een eprite invullen 
door de knipperende cursor met de joystick te bewegen. Met een 


druk op de knop van de joystick Hunnen we een hol je inverteren. 
Kechtsunder zie je hoe de sprite er cp ware grootte in het 
‘echt’ witzaet. 


Rechts naast het haokjesraster staat een aantal commando's: 
SCROLL (in alte 4 richtingen). IMNVERT, TURN, ERASE en QUIT. We 
zetten de cursor (die er binnen het raster anders uitziet dan 
erbuiten) op het hokje voor het gewenste commande en drubben op 
de krop van de joystict. Het aangewezen commando wordt dan 
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uitgevoerd. Er verschijnt een horloge in beeld ten teken dat U 
hier even op moet wachten. Bij SEROLL moeten we de cursor op 
Een van de vier pijltjes zetten. De sprite wordt dan 1 rij of 
kolom in de opgegeven richting verschoven (de vrijgekomen rij 
of kelom wordt met lege hokjes gevuld). INVERT inverteert de 
gehele sprite en TURN spiegelt een sprite om de verticale 
middenas. ERASE wist de hele sprite en met DUIT wordt de sprite 
editor verlaten. Hij ERASE en QUIT is een extra beveiliging 
ingebound tegen ongewenst uitvoeren. Na het geven van het 
commando verschijnt het woord OK (knipperend), en moeten we nog 
een keer op de koop van de joystick drukken. Pas dan wordt het 
commando uitgevoerd. Hebben we ons vergist, dan verplaatsen we 
de cursor gewoon in de een of andere richting, weg van het 





commando. 

Het is miet mogelijk om de cursor naar posities op het 
beeldscherm te verplaatsen waar je niets te zoeken hebt. 

Ma CUIT kunnen we de naam en evt. het assignmentnummer van de 


sprite (als je dat in het CREATE-statement wilt hebben 
opgenomen) opgeven. De sprite editor vertelt U dan hoe het 
CRHEATE-statement moet luiden om de door U bedachte sprite te 
definiëren. Deze regel is nog NIET uitgevoerd, m.a.w. de sprite 
bestaat nog niet! Dus overschrijven, uitprinten of met de 
copy-toets kopiëren. Denk aan het goede BASE-adres! 








FAINT EDITOR 


Met het CREATE-statement is het ook mogelijk om patronen te 

definiëren voor het PFAINT-statement van GAGS. Eigenlijk hebben 

we ook eer FAINT EDITOR nodig om gemakkelijk patronen te maken 
en te wijzigen. 

De uerking van deze paint editor is analoog aan die van de 

sprite editor. Er zijn slechts een paar verschillen op te 

merken: 

=Eij het editen krijgen we altijd 32 patronen te zien. (Nummer 
+ 8 bytes definitie.) 

“Naast het 8#8 raster zien we een vlak zoals dat er uitziet als 
we het met het huidige patraon inkleuren. 

—Na QUIT krijgen we weer een CREATE-statement voorgeschoteld. 
Dit is al wel uitgevoerd! Het patroon bestaat dus al. Hij de 
sprite editor is het helaas niet mogelijk om het gegenereerde 
CREATE-statement ook uit te voeren: bij de paint editor wel. 


Vaor dat we de paint editor runnen moeten we het base-adres 
goed zetten (met het BASE-statement). Het patroon wordt 
gedefiniëerd op de base zoals die gold toen U RUN intoetste 


‘bij "create’) of op de bij "edit’ opgegeven base. 

De sprite editor staat van #2900 — #SAIE in het geheugen en de 
paint editor van #2900 — 85S5F5. Daarachter staat een aantal 
arrays en ZE sprite opslaggebied voor eigen sprites. Zorg er 


dus voor dat U voldoende geheugen aanwezig heeft. 

Tot slot nog het volgende: Heeft U P-Charme niet op HIXXX, 
bekijk de listing van de sprite editor dan eens extra goed. Het 
onbeperkt kunnen mengen van P-Charme en GAGS ìs maar één van de 
vels voordelen die het plaatsen van P-Charme op HIXXX heeft. De 
bijbehorende schakelsoft is veel eenvoudiger en duidelijker dan 
overeenkomstige schakelsoft die uitgaat van P-Charme en GAGS op 
HAXXAX naast elkaar. 
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DE NIEUWE MDCR-—-ROM 


Korte beschrijving nieuwe software voor in EPROM/RAM op A-gebied, Deze software 
is upwards compatible met de vorige MDCR software. Dus oude file's kunnen weer 
teruggelezen worden etc. 

In het hieronder staande overzicht is met een * aangegeven welke commando's niet 
gebruikt hoeven te warden als u volledig automatisch wilt werken, dus met een 
Header . 

Alleen als u zender Header wilt werken moet wu gebruik blijven maken van sash en 
salo, in het andere geval is om te saven alleen SAM nodig. 

In de hieronder getoende voorbeelden kunt u zien dat de commando's in een basic 
programma opgenomen kunnen worden ook SAM commando's 

Vaar de mensen die zelf basic programma’s schrijven zijn hieronder een drietal 
mogelijkheden opgenomen. 


1. Laden van een gewenste file kan ook als volgt: 
$#14G="FILENAAM"; LI. KA6CH 

2. Saven van een file met de naam "FILENAAM" kan ook als volgt: 
ER14Q="FILENAAM" 

eginadres 

indadres 
I#74=Startadres (zie cok bij salo). 
LI.#A&D7 

5. Wilt u van een bepaalde filenaam het nummer weten waarmee het op de band 
staat dan als volgt: 
S#LAD="FILENAAM"sLINKBAS45;P. 27E 








Vaar de mensen die zelf eenvoudige interface-schakelingen kunnen bouwen is ook 
neg het schema opgenomen, U heeft dus geen extra VIA nodig. Bij mij loopt dit nu 
bijna 2 jaar met op de A-poort een printer aangesloten. 


HELP 

Geeft een overzicht van alle commando's. 
HELP ini 
sash & DEL 
sala # LOCK 
VERM UNL 
LAAD CAT 
REM MHAND 
WIS MAUTO 
LRIUN uPD 
SYN FUD 
MCAT BVER 
SAM BACKUF 


noet van de redactie: 

de commando's met kleine letters dienen ook met kleine letters t worden gegeven. 
Dit als een beveiliging tegen fatale gevolgen, omdat nu de schift-toets ook 
gebruikt moet warden bij invoer, 
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Bi) nogmaals op een toets drukken, worden een aantal voorbeelden getoond. 





ini" BANDNAAN" 
LAAD4;LAAD"FILES" 
FOR %=2705;LOCK XN. 


UNL "FILES"; UNL6& UNL=UNLOCK 
DEL; REW; wis; FUD DEL=DELETE 
LRIJN(B+B) LAAD EN RUN 


SAM"FILE" 299D 3CO8 29;F, "BASIC" 
SAM"PAINTER" 2858 2CBB 2813 
MHAND: F‚ X=3T012; DEL X;N. ; MAUTD 


UPD“FILE";UPD4 =UPDATEN 
BVER = BAND VERWISSELD 
CAT 


BACKUP = NAAR TAPE 
AMWUVS 
Dan nu een overzicht van de commando's: 


sash 
Save met na bet programma 40 miliseconde wissen. 


salo 

Save met na het programma i seconde wissen 

Alle programma's of datafile's die U op band zet krijgen een nummer en komen met 
een tussenruimte, die gewist moet zijn, op de band. Het eerste programma begint 
pas na 1 seconde (aanloopstuk), Dit wordt automatisch verzorgd. Doordat een 
programma altijd gevold moet worden door een stuk van 2,45 seconde gewiste band 
wordt normaal gesaved met sals 

Hierap is natuurlijk een uitzondering nl. als u een bestaand prögramma of 
datafile wilt Overschrijven, dan wordt sash gebruikt. Duidelijk is wel dat er 
dan natuurlijk een file ap band gezet moet worden die evengroact is als de vorige 
file. Een gesaved programma wordt automatisch gecontroleerd door het terug te 
lezen en de checksum te bepalen (verify), 


Salc"PROGNAAM" EERE EEEE SSS5 
oF SS 


BBBB = Beginadres 
EEEE = Eindadres 
8555 = Assenbler startadres 
55 = Rasic start adres met textpainter op SS 
TOF en DIM werdt automatisch goed gezet. 


VERM 

Verify het programma met het aangegeven nummer X af “programmanaam”, Haal het 
Programma van band maar zet het niet in het geheugen, bepaal wel de checksum en 
controleer die met de op de band staande checksum 


LAAD 
Laad grogramnanumner X of “programmanaam” naar het geheugen zoals door u op band 
gezet. 


REW 
Fewind de tape, deze is dan tevens gesynchroniseerd, 


wie 
Wis de tape vanat deze pasitie tot aan het einde van de band 


DE NIEUWE MDCR ROM ARIE MARSHAL ACORN NIEUWS PAG. 51 





LRUN 
Laad programmanummer X of “prog.naam” en start het hierna op. Dit kan dus zowel 
in basic als in assembler zijn, Zie hiertoe bij salo en sash 


SYN 
Synchroniseer het bandje. Dat wil zeggen positioneer juist en vul het juiste 
progräammanummer in. Dit is het nummer waar de MDCR voor staat. 


MCAT 

Laat een catalogus zien van wat er op band staat. De band moet natuurlijk 
gesynchroniseerd zijn, Dit commande is te onderbreken met de CIRL-toets. Wel 
even vasthouden. Het bandje bijft dan gesynchroniseerd achter 


SAM 

SAVE AUTOMATISCH MDCR. 

SAM"FILE*“ 290@ 3C@8 29 (voor basic). 

SAM"FAINTER" 2800 3C20 2815 (voor assembler). 

Ket programma wordt gesaved en de Header werdt automatisch bijgewerkt. U hoeft 
zich geen zorg te maken over kart of lang saven. Dit wordt automatisch verzorgd. 


ini 
ini" BAND iA”, hierna wordt gevraagd "Zeker weten j/n” 

Bij "ja" wordt het bandje van voor tot achter gewist, en vooraan wordt hierna de 
Header aangemaakt van #2408 tot #2802 


DEL 

Delete X cf “preg.naam”. In de Header verschijnt dan een ruit-tekentje tussen 
het prograamanummer en de programmanaam. Let wel het programma staat nog steeds 
op band git wordt pas overschreven bij een volgende save, die exact dezelfde 
programma lengte heeft. 


LOCK 

Lock X ef “prog.naam” Het programma wardt gelackt (beschermd). Gelockte file 
kunnen niet geupdate af gedelete worden. Tussen programmanuamer en naam 
verschijnt het *#"” teken. 


UNL 
Unlock of "prog.naam”. Het # teken verdwijnt en het programma kan worden 
geupdate ot delete 


CAT 

U krijgt een overzicht van de op de band staande programma’s, tevens het totaal 
aantal gebruikte bytes, het aantal keren dat reeds gesaved 15 en het nummer waar 
de MDCR vaor staat. Mocht de Header in het geheugen "beschadigd" zijn dan wordt 
deze cpnieuw van band geladen. 


MHAND 

Met dit commande wardt het MDCR-systeem Gp handbediening gezet. Na iedere 
transactie wordt de Header bijgewerkt, maar nag niet op de band Geschreven 
Makkelijk als meerdere programma’s gesaved of bijv, gedelete moeten worden, na 
de laatste transactie en vaardat u de cemputer uitzet veert u in MAUTO en de 
Header wardt automatisch Gp de band bijgewerkt. 


MAL TO 
let het MDCP-systeem cp automatisch en saved de Header zoals die nu is 
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UPD 
Commando om een bestaand programma of file te updaten. Let wel het programma of 


file kan niet groter zijn als het origineel programma. Dus houdt er rekening mee 
als het een program is waaraan nog geknutseld moet worden, en u wilt het over de 
vorige versie heenleggen save dan met meer ruinte. Overschrijven van het 
volgende programmaä is niet mogelijk. (Is tegen beveiligd in de soft). 


FWD 
Laat de tape vooruit topen. Is te stoppen met ESC-toets. 
De synchronisatie wordt automatisch verstoord. 


BVER 
Bij iedere bandverwisseling te gebruiken, als u automatisch wilt werken. 
De Header wordt geladen en er verschijnt een overzicht zoais genoemd onder CAT. 


BACKUP 

Backup van MDCR naar normale cassette recorder. Kan zowel met 308 als 1208 Baud. 
Bij het commando BACKUP wordt het eerste op de band staande programma geladen en 
er verschijnt 

RECORD TAPE 

Zet de bandrecorder op opnemen en druk op een toets. Het programma wordt nu op 
cassette gesaved. Daarna laadt de MDCR het tweede en volgende programma's en 
deze worden weer gesaved. (Volledig automatisch). 





FOUTMELD INGEN 

101 Geen cassette aanwezig, 

182 Begin of einde van de band 

183 Niets op de band. 

184 Preamble niet ontvangen. 

185 Niet correct geladen 

186 Schrijven niet toegestaan. 

147 Bij controle van het pregrammanummer op de band met het door de software 


aan de hand van de Header berekende programmanummer is een verschil 
geconstateerd. Dit kan bijv. optreden als u gaat saven terwijl u een ander 
bandje in de MDCR heeft gedaan zonder BVER te doen. 


De werking van de MDCR is te onderbreken door de escape-toets vast te houden, of 
door de break-toets in te drukken. In het laatste geval wordt de zaak altijd 
direct afgebroken.Voor de liefhebbers er is nog wat ruimte over, als u de soft 
in EPROM zet. 


VEEL SUCCES 
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_MDCR van PHILIPS 


Interface schakeling die op de B-poort van de 
ACORN ATOM moet worden aangesloten. 


5 INPUTS ‚ 
Mis WEN pn PB Write enable (plug in cassette) 
: NI 
m3 TIP De PBT Cassette aanwezig 
N12 
wan RDC —DDepe Read clock 
u? BET De PB6 Begin / end of tape 
- N4 


m2 RDA De PaO Read data 


Al deze input signalen worden geiïnverteerd en. aangepast 
door IC1 ( CD4049 N1 -_N5 } 


12V a OUTPUTS 


MG CB2 Write data. 


we PB5 Write command. 





PB3 Rewind the tape 


PBè Tape forward 





PB4 Output enable 





IC1 Ni-N5 CD4049 Mi tot en met M1á zyn de MDCR interfacenummers 
IC2 N6-N9 74L526 
1C3 Ni0-Ni 74LSO4 +5V pen 1 , OV pen 32 van de ACORNBUS 


+V2V ee ML 


OtpP L 
ov LL M2,M3 ‚MA 


ov L “Tra Tos IE 


0. IP Ic2 Ic3 Ici 


1 ú 8 
ov Ì | = M2‚M3 „Md 
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SALFAA 


NOT (uitleg van MAC/EF) 
Inleiding 


Voor de vakantie (in Acorntjesbrood 2.25) heb ik een assembler 
aangekondigd die ik inmiddels MAC/EF heb gedoopt, hetgeen staat 
voor: Making Assembly Code by Basic Programming, door sommigen 
echter reeds vertaald door Macro assembler van Bram Poot. Dit 
laatste komt echter voor hun rekening. De essentie van MAC/BP 
is dat de assemblerinstructies in feite basic-statements zijn 
geworden. Dit biedt dan de mogelijkheid om de faciliteiten van 
bv. F-charme los te laten op assembierprogrammering. In het bij 
de aankondiging afgedrukte voorbeeld wordt de functie BIN in ‘n 
assembleradresseringsmode gebruikt en de procedure INK fungeert 
er aìs macro. 

Het nadeel van MAC/EF, tevens de feitelijke reden dat ik de 
reeds min of meer werkende versie niet verder ontwikkel,is dat, 
omdat er geen verschil meer is tussen assembler en basic, het 
ook niet meer duidelijk is wanneer wel en wanneer niet iets af-— 
gedrukt moet worden. Dit is natuurlijk wel met F.$6 en F.#2i te 


doorbreken, maar, en ín de praktijk bieek dat ook wel, als je 
een mooie assemblerlisting wilt creëren (dus datgene dat tij- 
dens vertalen wordt afgedrukt) vraagt dit zoveel overhead dat 


de tol van het assemblerprogrammeren er snel afgaat. 
De assembler die na MAC/EP min of meer uit dezelve is ontstaan, 
heb ik SALFAA genoemd, hetgeen staat voor: Symbolic Assembly 
Language For Acorn Atom, een naam die ook aan mijn eerste as 
sembler gegeven had kunnen worden ware het niet dat ik dat des- 


tijds eenvoudigweg niet heb gedaan. 


Samenvatting 


Wat valt er, zonder direct in details te treden, over SALFAA te 
zeggen? 

SALFAA is symbolisch, hoort als utility op het AXXX-blok en kan 
als zodanig als losstaande kit gebruikt worden (MAC/BP heeft P- 


charme nodig). Via een optie kan echter P-charme in principe 
dienstbaar gemaakt worden aan SALFAA (denk aan FUNCTION, NOT, 
etc.) 


BALFAA is mengbaar met basic, zoals u inmiddels wel zult hebben 
begrepen,maar het basicgedeelte kan zo klein uitgevoerd worden, 
dat u eigenlijk een echte assembler onder de vingers heeft. 
SALFAA zal binnenkort SWEETI&=-code kunnen genereren. Natuurlijk 
moet u, om dit uit te buiten, ergens een SWEETl&-interpreter 
hebben staan (zie eerdere uitgaven van Acorntjesbrood) . 

SALFAA heeft de beschikking over in principe 28 directives: 
u raadt het al: de letters van het alfabet (enkele hiervan zijn 


(nog) niet geïmplementeerd). 
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Overhead 

arran 

Laten we SALFAA dan nu wat nader bekijken. Het geheel is een 
kant en klaar pakket dat de volgende opdrachten kent: ASM-, 
PASS, CALL, (, en \. 

De back slash LAS wordt gebruikt voor commentaar totaan een ‘ 
of CR, zowel in het basic- als assemblergedeelte. De ronde haak 
open (() wordt gevolgd door een willekeurig karakter waarna al-— 
les, regelnummers incluis, als commentaar wordt opgevat totaan 
datzelfde karakter gevolgd door de ronde haak sluiten 0) (zie 
ook het bij de aankondiging van MAC/EP afgedrukte voorbeeld). 
Dok dit geldt zowel in basic- als assemblermode. 

CALL doet bijna hetzelfde als LINK, maar nu wordt behalve A, X 
en Y ook het processor status byte gevuld en wel met de inhoud 
van het laagste byte van de variabele P. Hovendien mag als ar— 
gument ook een symbool uit de symbol table worden ingevuld, bv. 
CALL ENTRY. Een expressie is eveneens mogelijk: CALL ENTRY + 3. 
Om de een of andere dubieuze reden blijkt CALL voorlopig alleen 
in direct mode goed te werken. 

PASS neemt de laagste twee bits van de erop volgende expressie 
en plaatst deze in het assembler status byte (hierover later 
meer) 

ASM- tenslotte verwacht direct achter het min-teken een van de 
letters B‚C,1,5,U,V waarna alle karakters daarna totaan : of CR 
els commentaar opgevat worden, zodat u dit soort constructies 
kunt maken: ASM-BEGIN OF ASSEMBLY of ASM-CONTINUE PART IIs. 

De letters hebben de volgende betekenis: 


B — BEGIN de symbol table wordt geinitieerd (op #8200) var S 
de object code pointer wordt ,, top #9OO00) var P 
de memory pointer wordt 1 {ap #OOCO) var OQ 
een nieuwe break handler wordt gezet en de oude 

wordt bewaard 
het scherm wordt afgezet 

C _- CONTINUE een nieuwe break handler wordt gezet en de oude 

wordt bewaard 

1 — INITIATE de symbol table wordt geinitieerd top #8200) var S 
de object code pointer wordt ,, top #9U0O) var P 
de memory pointer wordt "… {op #OOOO) var O 


het scherm wordt afgezet 
S — SYMBOL de symbol table wordt afgedrukt 
U — UNRAVEL de symbol table wordt gesorteerd 
V — VERSION het versienummer wordt afgedrukt 
(deze laatste drie worden nader besproken bij de directives. 
Het zijn de basic-equivalenten van .S, .U en .V > 
ASM-E en ASM-C veranderen het programma naar assemblermode, bij 
de overige blijft het in basicmode. 


Structureel 


Voordat ik verder ga met SALFAA, wil ik eerst een structureel 
aspect bespreken. 

Aangezien P-charme zo ongeveer de enige echte Acorn Atom basic 
upgrade kit vormt, zat het me niet lekker om deze naast de "ge- 
wone“ boxen op het A-blok te zetten. Als ik P=charme ergens an- 
ders zou plaatsen, kon iks 
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a. gebruik maken van de P-charme routines die dan nooit wegge- 
schakeld worden. 

b. via schakelsoft P-charme met een andere box combineren (bv. 
CALC en 1200 baud, GAGS-routines in procedures etc.) - 

c. kortom uitbreidingen die je niet doorlopend, maar wel vaak, 
nodig hebt (bv, assembler, extra commando's (let wel: geen 
statements) ed.), naast elkaar i.p.v. achter elkaar zetten. 

Dit nu is bij mij verwezenlijkt.Ik heb F-charme gerelocaliseerd 

naar het #1XXX-blok (versienummer 1). Dat dit niet zonder meer 

gelukt is, zal eenieder wel duidelijk zijn. Ik heb drie conces- 
sies moeten doen: 

1. het executieadrfres van HSAVE is nog steeds #AFAF, hoewel daar 
geen F-charme meer staat. Als ik het zou aanpassen werd het 
HIFIF en daar staat een andere routine. Aangezien ik echter 
zelden basicprogramma's *RUN, vind ik dit niet zo erg.Boven- 
dien kan ík i.p.v. BSAVE altijd nog #SAVE“..."..,. vur 1FAF 
intoetsen. 

2. KENUM is RENU? geworden (het hoe en waarom hiervan zou me ‘n 
stuk of wat kantjes kosten aan uitleg). Aangezien ik echter 
meestal KEN. intik, gaat dit zonder meer goed. Bovendien 
krijg ik nu via RENUM (en uiteraard schakelsoft) de super- 
snelle Josbox-RKENUM (als ik toch geen computed GOTOs, GOSUBs 
en/of RESTOREs heb, gebruik ik deze meestal). 

5. in AUTO heb ik een instuctie moeten schrappen, ter verkrij 
ging van twee broodnodige extra bytes. Deze ingreep blijkt 
tot op heden geen gevolgen gehad te hebben 2722? 





Het nadeel is dat ik routines die naar P-charme linken (zoals 
de „STAT routines) niet domweg kan overnemen. Als ze met een 
referentie zijn geprogrammeerd, valt het aanpassen nog wel mee, 
maar helaas is dat zelden het geval. 

In probleem- en testgevallen kan ik echter altijd de originele 
F=-charme in het A-blok inladen en die op #IXXX disabelen. De 
basicprogramma's leveren hoe dan cok nooit problemen op, omdat 
ik ervoor gezorgd heb dat de basiccompatibiliteit behouden is 
gebleven. De enige uitbreiding achter P-charme is de schakel- 
soft ter jengte van maximaal 256 bytes. Alle andere uitbreidin- 
gen kunnen dan naast elkaar in de schakelkaart. 

Als ik in wat verder volgt het over P-charme heb (zoals gezegd 
niet vereist bij SALFAA), dan is dat met betrekking tot deze 
veranderde versie. 

Gaan wij nu weer verder met SALFAA. 


Status byte 


Laat ik dan eerst het assembler status byte beschouwen. 
Ik heb daarvoor #28FF gekozen twordt op nul gezet door PROGRAM) 
De bits hebben de volgende betekenis 


bi le rá 1 
Ö eerste 1 laatste pass 
1 wel / niet wegschrijven 
2 KNN rá Edd gereserveerd 
3 / 
4 64+ / 32 karakters per regel 
5 geen 1 wel page cross melding 
6 wel rá geen P-charme 
7 f 


SALFAA BRAM POOT ACORN NIEUWS PAG. 





Een aantal zaken is pass-afhankelijk: OUT OF RANGE & UNDECLARED 
SYMBOL zijn pas foutmeldingen tijdens de tweede pass. REDEFINED 
SYMBOL is een waarschuwing tijdens de eerste pass, Dit wordt 
gerelateerd aan bit0. Als bit! hoog is wordt de code niet daad 
werkelijk naar geheugen weggeschreven. Laag —* wel. Deze faci 
liteit bleek later handig bij het ontwikkelen van schakelsoft. 
Deze beide bits worden door het FASS-statement beinvloed (zie 
aldaar). De overige bits worden beinvloed door het .O (option) 
directive (zie aldaar). 

Bit2 is gereserveerd voor de toekomst. U kunt dit D of 1 maken, 
evenals de twee niet ingevulde bits, die (nog) geen toepassing 
hebben. Bit4 zet u het beste laag bij gebruik van 8Ó-kolomsVDj 
en evt. hoog bij de normale AtomVDU, Hit5 geeft aan of de bran 
ches over een paginagrens gemeld moeten worden en bité geeft 
aan of er ja dan nee een F-charme aanwezig is. 


Directives 

wennen 

Een directive bestaat uit een punt, onmiddellijk gevolgd door 

een symbool waarvan alleen de eerste letter significant us. U 

kunt dus schrijven: 

.BYTE (is duidelijk), -B (compact) of .BOTERBARBELAAR (raar). 

We hebben op deze manier 26 directives (de eigenlijke beteke 

nissen zijn voor de duidelijkheid ingevuld): 

„ASCII \string\ Na ASCII komt een willekeurig niet-spatie ka- 
rakter (gebruik daar liever niet de slash (/) vaor, omdat u 
die met P-charme nitet terug kunt vinden). Alles tussen twee 
van deze delimiters wordt als string opgevat en de asciìco- 
des van de karakters worden in het geheugen gepoked. Na de 
tweede delimiter mag u een komma plaatsen waarna bytes wor- 
den gepoked, Ev. „ASCIINSTRING\,#OD, #ÓA 

.HYTE leest een of meer expressies en plaatst de laagste bytes 
ervan achtereenvolgens in het geheugen. 

Ey. .EYTE TOP, 5#7,0, WAARDE+I 

„CODE leest een adres en plaatst dit in de variabele PF die ook 
bij SALFAA als object code pointer fungeert.Deze wordt door 
ASM-B op #9G00 gezet. 

.DBYTE plaatst een 2-bytes adres in het geheugen, het high byte 
eerst. Bv. .DBYTE adres (afwel .BYTE adres/256,adres/256). 

END zet de printer uit, het scherm aan, de breakvector terug 
en verandert het programma naar basic=mode, Achter „END mag 
commentaar staan totaan 3 of CR. Ev. .END OF ASSEMBLY; 

«FIRST forceert een listing tijdens pass 0. 


„HARD zet tijdens pass j de printer aan t.b.v. een hard copy. 
Als de printer in off line mode staat of niet aanwezig 15, 
blijft ‘t programma niet domweg hangen,maar meldt dit feit, 
Het omschakelen naar on line danwel het indrukken van de 
shifttoets continueert het programma. 

IF is qua Syntax analoog aan de normale IF (zonder THEN). 

«LIST Normaal worden beide passes niet gelist. .LIST zet tij- 
dens pass | het scherm aan. 

-NEWLINE wordt gevolgd door een l-byte expressie. Evenzovele 
linefeeds worden in de listing ingelast, 

OPTION beinvloedt de hoogste 6 bits van het status byte. De 
laagste 2 bits blijven onveranderd. 

Bv. „OPTION #40 —+ P-charme niet aanwezig. 





37 
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„PRINT leest een of meer expressies en stuurt deze tijdens pass 
1 naar de printer driver (dus niet ook naar het scherm). 
„RAM leest een adres en plaatst dit in de variabele 0. Als deze 
waarde ongelijk is aan de defaultwaarde 0 (zie ook ASM), 
dan wordt de vertaalde code niet naar F,‚ maar naar OQ wegge- 
schreven. 
Als u bv. een toolkit wilt schrijven, is „CODE #AGOÛ niet 
voldoende, omdat daar SALFAA (in EPROM?) staat. In zo'n ge- 
val schrijft u .CODE #A000 „RAM #9000 Na vertaling schakelt 
u RAM in bv. P#RFFF=O, en toetst in COPY #9000,89FFF,#AOO0. 

„SYMBOL drukt de symbol table af. U kunt de listing stoppen en 
weer doorstarten met de REPTtoets. Na de tabel wordt uw nog 
verteld hoeveel waarschuwingen er zijn opgetreden. 

„TABLE leest 1 of 2 adressen. 
Geeft u 2 adressen, bv. -TABLE #8400,#8800 dan reserveert u 
ik bytes voor de symbol table vanaf #8400. Beide adressen 
worden in de variabele S bewaard. 
Geeft u 1 adres, bv. „TABLE #9700 dan bepaalt SALFAA zelf 
het eindadres door het eerste niet-RAM adres op te zoeken, 
waarbij data niet verziekt wordt. Zorg er echter wel voor 
dat SALFAA niet in RAM staat als u #9800 en hoger hebt ge 
stapeld! Ook nu worden beide adressen in S bewaard. 
De default adressen zijn #8200 (begin) en #9000 (eind). 

-UNRAVEL Ontrafel (sorteer) de symbol table. Ik geef toe dat 
deze naam ietwat gezocht is, Het was echter een van de wei 
nige letters die overbleven.Onder het motto “graag of niet" 
heb ik gemeend het zo maar te laten. Als sorteermethode heb 
ik gekozen voor de o za ineffectieve, maar o zo eenvoudig 
te programmeren bubblesort, Onder hetzelfde motto "graag of 
niet” leek me dit wel gerechtvaardigd. Bedenk overigens wel 
dat de symbolen niet allemaal evenlang zijn, hetgeen voor 
andere dan bubblesort-methodes extra problemen geeft. Het 
sorteren gaat nu uiteraard wel traag: een beetje programma 
dat ca. 1 minuut vertaalt, sorteert grofweg eveneens in een 
minuut (als de tabel tenminste flink door elkaar ligt). 

VERSION drukt het versienummer van SALFAA af. Het is een goede 
gewoonte om in uw programma te vermelden voor welke versie 
u het geschreven heeft. Makkelijk voor anderen, maar zeker 
ook voor uzelf. 

„WORD plaatst een 2-bytes adres in het geheugen, low byte eerst 


Symbolen 
oenenanns 
Assembler labels worden op de gebruikelijke manier gedefinieerd 
met de dubbele punt, dus :SYMBOOLNAAM. De naam wordt in de sym 
bol table bijgeschreven of als deze al bestond overschreven met 
daarbij de waarde die P op dat moment heeft. Als de symboolnaam 
wordt gevolgd door "=" dan wordt i.p.v. P de waarde van de ach- 
ter het gelijk-teken staande expressie genomen. 
Voorbeeld: 
ERO = Q 
WAARDE = #FF 
«FILL LDY@ZERO 
«LOOP LDAGWAARDE 

STA #8000,Y 

INY 

BNE LOOP 

RTS 
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Symbolen mogen uit maximaal 26 letters bestaan, met dezeltde 
beperkingen als bij MINIAS, Als u echter altijd kleine letters 
gebruikt (daar niet, hier wel mogelijk) kan er nooit iets mis- 
gaan. Als leesbaarheidskarakter is de single quote ('j gehand- 
haafd. Dus DIT'IS'EEN'SYMBDOL is inderdaad een symbool. 
Foutmeldingen treden op als een symbool te tang is, als een il- 
legaal karakter wordt gevonden of als het symbool niet in de 
symbol table past. 


DOS- en COS-commando's 

aranea Aaterra 

Stercommando's mogen in SALFAA voorkomen. Handig voor het inla- 
den van reeds gecreeerde of standaard tabellen. 

Ev. #LOAD"TABLE"B200 

Bedenk wel dat dit zowel in pass 0 als pass 1 gebeurt. Gebruik 
eventueel constructies als: 

„IF PR2BFFK1=0: #LDAD"TABLE" of 

IF EVEN(?828FF) ; #*LOAD"TABLE" 


Listing 

rennen . 

De spaties voorafgaand aan een instructie worden in de listing 
genegeerd, waarna er bij directives 1 wordt ingevoegd, en bij 


instructies 2, zodat de dubbele punten van labels onder elkaar 
komen,de punten van directives onder elkaar t positie verder en 
de instructies ook onder elkaar wederom 1 positie verder. 

Als u meerdere instructies op 1 regel plaatst, worden ze, vanaf 
de instructie die in behandeling is, allemaal afgedrukt. Heeft 


u bv. deze regel :INI LDY@G; STY#BO dan drukt de listing af: 
INI LDY@Ó; STY#80 

LDYe0; STY#BG 

STY#B0 
Toekamst 


neren 
De bron van SALFAA (geschreven in symbolische assembler) loopt 
van #2900 tot #8000., Deze levert me versie 0,4, waarmee ík de 
volgende versie van SALFAA in SALFAA ga schrijven.Daarin zuilen 
storende fouten verbeterd zijn, SWEETió-instructies herkend 
worden en datgene waar nog behoefte aan was geimplementeerd 
zijn. 


Verantwcarding 

SALFAA is ontstaan na enig brai stormen tussen Frans van Hoesel, 
schrijver van MINIAS en mijzelve. schrijver van MAC/BP. MINIAS 
ìs geschreven op compactheid, MAC/BP is geschreven op mogelijk 
heden. Frans heeft mij ervan overtuigd dat MAC/BP toch eigen 
lijk wel te lang is (2.5 k). In praktijk zul je iets dergelijks 
niet permanent aanwezig hebben en ook niet telkens willen hoe- 
ven inladen. Aan de andere kant wilde ik een aantal facilitei- 
ten niet kwijt (bv. variabele OQ als memory-peointer, onmogelijk 
in MINIAS). De oplossing lag voor de hand: de schakelkaart. De 
5,5 k van SALFAA zijn nu pas aanwezig alas.ze nodig zijn 
Ik besef terdege dat deze handelswijze niet voor iedereen inte- 
ressant is. Vereisten zijn: 
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— P-charme op #IXXX (zie ook “structureel") 
— schakelkaart 
— goede schakelsoft 
- gecharmeerd zijn van mooie assemblerlistings, zowel voor als 
tijdens vertalen 
— het zien van andere voordelen: 
—- sprites in procedures 
— functions ìm GRMOD 
-= textfiles van 1200 baud 
— external libraries op A-blok 
— alles wat hier nog niet te overzien valt (en dat is veel!) 


Bent u een verwoed machinetaalprogrammeur en bent u gevoelig 
voor mijn filosofieën, dan voorspel ik u vele genoeglijke uur 
tjes met SALFAA, Voldoet u alleen aan het eerste, ook dan kunt 
u, zij het in wat mindere mate, plezier beleven aan SALFAA. 


Voorbeeldprogramma voor SALFAA 


Het hierbij afgedrukte programma SWITCH SYSTEM laat enkele za- 
ken zien die met SALFAA mogelijk zijn. De aanhef van het pro- 
gramma is wat ingewikkeld, maar dat komt omdat de schakelsoft 
wordt aangemaakt die eigenlijk al nodig is om maar SALFAA door 
te sturen. Als er nog geen schakelsysteem aanwezig is, moet de 
back slash in regel 20 worden weggelaten. Is dat systeem er wel 
dan mag het programma zijn zoals het is. 

In mijn systeem zit P-charme op #1IXXX, zoals te zien is aan en-— 
kele sprongadressen (r.370,1100), P-charme kan gedisabled wor- 
den via het hoogste bit van #BFFF. Op dit moment zit SALFAA 
(versie 0,4) in een testuitvoering in voet 0 van de schakel 
kaart. Ik denk dat de SALFAA-aspecten wel voor zichzelf zullen 
spreken. Za niet, schroom dan niet om opheldering te vragen. 
Voor de volledigheid wil ìk nog wat schakel-aspecten bespreken 
die echter niets te maken hebben met SALFAA en er dus volledig 
los van staan. 

Het schaduwbyte heb ik in #B8OA geplaatst. Dit is het shiftre— 
gister van de VIA (moet je dus wel hebben!) en een van de wei 
nige bytes die echt absoluut door niemand (dacht ik) gebruikt 
worden. Dat is dus bij deze verleden tijd geworden. Het moet 
uiteraard ooit een keer veranderd worden, maar voorlopig red ik 
me er prima mee. 

ROM (r,270) wordt gebruikt om te schakelen en — (r-290) is han 
dig om array=elementen van een programma op te vragen bv. 
-P.RR(2,3)« Dit is dus hetzelfde als p dat ooit als p.STAT in 
AcornNieuws is beachreven. 


Aspecten van de schakelsoft zijn: 

ti. aangezien het schakelen via de breakhandler verloopt, wordt 
er niet geschakeld als BRKVEC op een "vreemde" waarde staat. 

2. er wordt niet geschakeld als een van de vectoren NMIVEC, 
BRKVEC, IRQVEC, EOMVEC, WRCVEC, of RDCVEC naar het A-blok 
wijst. Let er dan wel op dat na bv. FCOS de Josbox ingescha- 
keld blijft of wordt op het moment dat er een COS-operatie 
gepleegd wordt{(of gebruik in dit gevat alleen COS0 en COS1). 

3. de reeds ingeschakelde box wordt als eerste doorlopen i.v.m. 
c.a.grotere verwerkingssnelheid. Hiertoe wordt bité gebruikt 
{r.&60}. Daarna van à tot 7 de andere boxen. 


SALFAA BRAM PDOT 
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1@ REM SWITCH SYSTEM / SALFAA VB. 4 
2O\PABFFFZRBOJREN P-charne off / SALFAA on 
38 PASS 2;G0SUB c;REM don’t write to memory 


AQ PAS5 1;G0SUB c 


50 ?4BFFF=RG0; REN P-charme on 


63 END 


TECASM-BEGIN ASSEMBLY OF SWITCH SYSTEM 
80 .LIST „HARD „OPTION #48 


98 .PRINT 15 


189 „CODE #3FC 
110 .„BYTE #FF 

120: BASE = #2400 

130 \ DECLARATIONS: 
140:SWITCH _ = #E8GA 
1SO:BEKVEC = 1202 
16O:ORGBRK _ = #C9DB 
17@:LATCH _ = #BFFF 
180: TENF = #aF 
190:ROMNUM = 8 
20D:ERROK'94 = 94 
2108:LF = #0 
220:CR = #0D 

230: NOP = HEA 

240 

258 CODE BASE 

Z6D .BYTE #FF,HEI,HC6 
270 .ASCLL"ROM" 

280 .DBYTE _ROM;#B208 
298 ,ASCIi"-" 

JAR „DEYTE DIRMO:#8D09 
210 .„DBYTE ENTRY: #8000 
320 .BYTE #80 

350: ROM 

340 ISR #CAEI; DEC #04 
35Q STA SWITCH; STA LATCH 
260: DIKMO 

370 JSP #142E: JMP #CSIB 


IED: ENTRY 


\ 


\ 
\ 
\ 


- 


\ 


condensed mode 
extension byte 

don't extend 

or any other RAM page 


or any other RAM byte 
original break handler 


switeh/no switch flag 
number of eprams 


end of ‘table’ 


LOK #24; LDA #16,X 
JSF 


TEST; JMF #C55B 


OD (---rrvnnneennneeeenneneneennveenneeneenn 





390 LDA BRKVEC + ! 
410 

420 enclase a symbol 
420 aqdrescing modes: 
840 

450 CMF@(HFEAK)/256 
460 BEG TPY SWITCH 
470 CMFELOFEBRK) 254 
48D ENE DON'T SWITCH 
AD: TY SWITCH 

500 LDXENDE 

518: LOOK 

522 CDA 4289, X 

520 ANDeaF a 

540 CMeata0 


550 BED STOP'TEST 
SED DEX 

578 DEX 

520 BFL LOOK 

590: STOF TEET 


Far some very silly reason It 
in brackets in this kind of 


is necessary tú 





try to switch 1f BRKVEC 
has been set to BREAK 
has BRKVEC been re-set? 


yes, dan't switch 
check 1f any vector 
points tu AXXx 

get high byte uf vector 


mask law nibble 
vector ta AXA 
yes 


na, nest vector 


if minus —: last vecter reached 


&1 
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608 STX TEMP 

618 LDAG(BREAK) %256 
&2B STA BRKVEL 

638 LOAE(BREAK) /254 
640 STA BRKVEC + 1 
658 LDA SWITEH 

668 ORAE#AG 

670 STA SWITCH 

&80 BNE TRY 
690: NEW TRY 

780 LDIERFF 

718 TXS 

720 LDA TEMP 

730 BPL NO'NEXT 

748 BIT SWITCH 

758 BVC NEXT 

740 STX SWITCH 
F7D:NEXT 

788 INC SWITCH 

798 LDA SWITCH 

828 CMPEROMNUM 

BI BCC TRY 
B20:NO'NEXT 

858 LDA #108 

840 JSR LOWER'CASE 
850 BCC GEN'ERROR 
868 LDYBB 

87B: REPEAT 

BBB LDA #100,X 

898 CMPECK 

F0 BED RETRY 

918 JSA LOWER CASE 
928 BCC SKIP 

958 ANDEHDF 

948 STA #1DB,X 
958: SK IP 

GEB INX 

970 BNE REPEAT 

ZBO: RETRY 

9D JMP RCZDS 
1900: GEN ERROR 

1610 LOAG(ORGERK) 256 
1820 STA BRKVEC 

1858 LDACCLORGERKI/256 
1848 STA BRKVEC + 1 
1850 LDX@L0 

1868 BIT TEMP 

1878 BPL NO DIS 
1882 STX LATCH 
1890:NO'DIS 

1108 JMP #194B 
1118: STAT 
1128 JMP 
1158: TRY 
1148 STA LATCH 
115: DON'T ' SWITCH 
1168 LDA #AGBL 
1179 CMFÈRBF 
1188 ENE STAT 


*C55a 


\ 
\ 


— 


„eee - 


- 


„en eee eee eee 


„ere 


- 


save X, if plus don't switch 
set new BRKVEC 


initiate SWITCH 
define special case 


try switched epron first 
clear stack 


get flag 

don't switch 
special case? 

no 

yes, try all eproms 


next eprom 


last eprom reached? 
no, go try next one 


get first letter of command 
is it a lower case letter? 
no, generate error 94 

yes, convert to upper case 


get character 

is it return? 

yes, retry 

is it a lower case letter? 
no, skip convertian 

yes, convert 

restore upper case letter 


next character 
branch always 


go interpret command 


restore BRKVEC 


to be non 
allowed? 


prepare X 
switching 
no 

yes, show 


zero 


errar in display 


try basic expansion 


eprom present? 
na 
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1190 JMP #A922 \ yes, have a try 

1280: BREAK \ new break handler 
1218 PLA \ analogous to original 
220 PLA 


1250 STA #80 

1240 CMPEERROR' 94 error 942 

12508 BEQ NEW'TRY \ indeed 

1268 JNF ORGARK + 4 original error message 
1278: LOWER ‘CASE 
1288 CMFRCH"{" 
1298 BCS NO'LC 
1308 CMFGCH"a" 
1318 RTS 

1328: NO'LC 

1338 CLC; RTS 
1348: TEST 

1350 (omnnnnnennennrvvnnnnnnrnnnnnvvvennenvnnne 
1540 TEST tests 1f an eprom is present. 14 nat, all 
1378 bytes are equal to #FF, in which case a message 
1580 15 printed, The pair of zero page bytes #EG/HES 
1598 is used in the routine #F7D1 so these are free 
1408 to use here as well. 

1418 
1620 LDA@RAB; STA HE9 

1450 LDYEHOO; STY HEB 

1440 LDAGHFF 

1450: TEST‘ 

1460 CMP (#EB),Y; BNE RTS 

1470 INY; BNE TEST’; INC #E9; LDX #E9; CPX@#BO; BCC TEST” 
148B JSR #F7D1 

1498 .ASCIIANO ROM AVAILABLE\ ‚LF ‚CR,NOP 

1580:RTS RTS 

1519 „CODE #3FC \ activate extended page 

528 (actien only to be taken in last pass: } 

1520 .IF (?#28FFLI); „EYTE (BASE)/256 

1548 .END OF ASSEMBLY 

1558 RETURN 


— 


- 


is it greater than 'z'? 
yes, clear carry 

is it less than ‘a’? 
no, carry set 

yes, clear carry 


„eee 








4. als een commando met een kleine letter begint (r.830) en het 
niet bekend was in een van de boxen, wordt de inputbuffer 
geconverteerd naar hoofdletters waarna een tweede poging on- 
dernomen wordt (r.990), 

Ss, als na alle boxen het commando/statement nog steeds niet is 
herkend, dan wordt dit in het schakelkaartdisplay zichtbaar 
gemaakt, echter alleen als er geschakeld mocht worden, aan- 
gezien het display gekoppeld is aan #BFFF (NB. i.p.v. een 7- 
segmentsdisplay heb ik een HP-display dat een zelftest uit- 
voert, d.w.z. alle 20 ledjes aan, als er een 10 naartoe ge 
schreven wordt), 

Vervolgens wordt de controle weer teruggegeven aan P-charme 
die gaat kijken of er een PROGRAM is met dezelfde naam als 
het commando (r.11060). 
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De volgorde van commando’s/statements ter interpretatie is dus: 
basic ROM 
F-blak 
fl.point ROM 
* P-charme (op WIXXX) 
# schakelsoft (ROM, —) 
ingeschakelde box 
* box op 6,1,2,3,4,5,6,7 
* op dit punt evt. converteren en opnieuw beginnen 
* terug naar P-charme voor PROGRAM 
De algemene filosofie is dat de schakelkaart en -soft voorname- 
tijk in direct mode interessant zijn. 


Het schrijven van programma's die statements van meerdere boxen 
gebruiken, moet worden afgeraden. Ten eerste kunnen problemen 
dan te eenvoudig optreden (dubbel geheugengebruik, of herdefi- 
nieren van pointers) en ten tweede wordt zo’n programma dan te 
veel afhankelijk van een bepaald systeem. Een kleine verande 
ring in dit systeem (wil bij de Atom zo af en toe nog wel eens 
voorkomen) heeft meteen grote gevolgen. 

Als in mijn configuratie alleen naar P-charme geschreven wordt, 
wordt de schakelkaart überhaupt niet gebruikt, terwijl ik in 


geval van een programma naar één of ander A-blok (by. SALFAA, 
BABS) F-charme kan (hoeft niet altijd) disabelen met ?#BFFF=#0X 
waarbij X het nummer is van het betreffende A-blok. De hierbo- 


ven met sterretjes aangegeven onderdelen vervallen in dat geval 
waarna er een systeem overblijft dat vergelijkbaar is met een 
systeem dat "slechts" 1 toolkit bevat. 

Het kan allemaal veel geavanceerder. Het nadeel daarvan is ech- 
ter dat het te specifiek wordt en dat het dientengevolge te 
vaak moet worden aangepast. Ik heb zeker twee keer grote veran 
deringen moeten doorvoeren: de eerste keer toen de 80-kol ommen 
kaart werd geïnstalleerd en de tweede keer toen P-charme kwam, 
Ik probeer met deze configuratie de veranderingen te beperken. 
De nog te plaatsen uitbreidingen komen als “normale” A-blak 
toolkits op de schakelkaart en zijn dan alleen aanwezig als dat 
van hun verlangd wordt. 


noot: 
De schakelsoft zoals die hier gepresenteerd is, werkt ALLEEN met P-charme op 


#IXXX in conbinatiemet de clubschakelkaart, Dit neemt echter niet weg dat U via 
aanpassingen aan en/of ideeen uit dit programma eventueel iets dergelijks voor 
uw eigen configuratie zou kunnen maken. 
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In “t formiweldig dikke Acornt jesbrood van de vorige keer stond 
een zoveelste symbolische assembler beschreven (SALFAA 0.4, 
weet u nog). Ik vermeldde daarbij dat een volgende versie van 
SALFAA im SALFAA zelf geschreven zou worden. Welnu, dit was 
reeds een feit, nog voor het betreffende Acornt jesbrood was 
uitgekomen. Die nieuwe versie heette SALFAA 1.4 en inmiddels is 
SALFAA 1.5 zelfs beschikbaar. Om u nu niet al te veel in ver- 
warring te brengen geef ik even een overzicht: 

- versie 0.4 was (en is) bedoeld als tussenstapje om een "ech 
te" SALFAA in zichzelf (met at z*n specifieke mogelijkheden 
te schrijven 

” versie 1.5 is dientengevolge de versie die het beste gebruikt 
kan worden 

— versie 1.5 is volledig "upwards compatible" met versie 0.4, 
zodat u al die programma's die u reeds voor 0.4 heeft ge- 
schreven met weinig of zonder aanpassingen op 1.5 kunt RUNnen 


intermezzo. Als u een beetje woordspelig bent, zou u deze nieu- 
we versie i.p.v. één punt vijf ook SALFAA anderhalf kunnen noe- 
men. Dit heeft m.i. een ietwat negatieve klank, weshalve ik zo 
vrij ben geweest u deze kans bij voorbaat te ontnemen. 
Ozzemretni. 





Dan nu de verschillen tussen beide versies. Deze worden niet in 
volgorde van belangrijkheid gegeven, doch in volgorde van wil- 
lekeur, 


1. De X- en Y-indices kunnen nu ook in kleine letters: 
LDA adres,» 
sta (acres), y 
kdy zpax 
opm. de accu blijft gerepresenteerd door de hoofdletter Az 
als ik ook daar een kleine letter zou toestaan zou een label 
nooit met een a mogen beginnen. 


2. Het „BUTO directive ie geimplementeerd. Dit mag gevolgd wor 
den daor een basic-label of regelnummer. Als u wilt hernum- 
meren zult u GOTO voluit moeten typen. Voorbeeld: 


O5 = FALSE lof TRUE) 


„IF NOT{DOS5); .„GOTO 20 








110 (DOS-routines) 

200 (rest van prgm) 

opm, behoudens uitzonderingen is een spatie achter GOTO es- 
sentieel! 


5. De LIST-file is enigzins aangepast. Er wordt steeds 1 in- 
structie afgedrukt i.p.v. de hele instructieregel. 


4. Het .EYTE directive mag ook strings bevatten: 
zACK = 6;:CR = 133: LF = 10 
byte ACK, """EYTE""-string" CR‚LF, "tt" 
de volgende bytes worden gepoked: 
6,2. 42,59,54,45,22,2D,75,74.72.69.6E, 67, OD, OA. 21.2 
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5. 


1 


11. 


In de immediate adresseringsmode kunnen 8 bits binaire ge- 
tallen worden ingevoerd. Dat zo’n getal binair moet worden 
geinterpreteerd wordt aangegeven door de dubbele punt (2): 
LDA2: 11100 is gelijkwaardig met LDAD#IC 

opm. spaties zijn optioneel, dus 

CEXD: 10 tt A1 11 (HBF) is toegestaan. 


Bij uitzondering mag achter .OPTION eveneens een binair ge- 


tal geplaatst worden: 
„OPTION 7000910000; \output op smal scherm 


De breakhandier van SALFAA blijft ook na „END actief. Deze 
technische uitspraak betekent dat de symbolen ook in basic 
te gebruiken zijn. 


Commentaar werd in 0.4 überhaupt niet afgedrukt. In versie 
1.5 wordt het commentaar achter de back slash (\) wel afge- 
drukt (overigens alleen in assemblermode) 

Het afdrukken van de symbol table kan, comme il faut, ge-— 
stopt worden met de shifttoets en doorgestart net de control 
toets. Onderbreken met de escapetoets. 


Het .X directive. Dit is geen verschil met versie 0.4, maar 
ben ik vergeten om vorige keer te vertellen. Vandaar dat ik 
“m hier maar even noem. 

Met „TABLE worden tijdens pass Ó de eerste twee bytes van de 
symbol table (die het aantal aanwezige symbolen bevatten) 
gereset, of gecleared zo U wilt. ‚X teXtern) doet hetzelfde 
als .TAELE, maar reset deze twee bytes niet, zodat een hbe- 
staande symbol table gebruikt kan worden, Stel dat ik reeds 
een tabel heb (b.v. ingeladen) op #8271, dan kan ik met 
„X #8271i deze "aktiveren”. De nieuw te definieren symbolen 


worden in deze tabel bijgeschreven. 


Hij uitzondering mag een symbool beginnen met de apostrophe 
(°). Dit is gedaan om problemen met basic-functies te omzei- 
len. 


Als declaratie is dit correct: 

VALUE = #1254 

Ik kan de waarde van VALUE echter niet uitlezen, omdat Atom- 
basic de functie VAL gaat interpreteren met UE als argument. 


Oplossingen: 





i. andere naam zWAARDE = 
2. kleine letters :value 
5. apostrophe 2" VALUE = 


Bedenk wel dat in PRINT- en INPUT-statements de apostrophe 


een betekenis heeft. 
PRINT *VALUE drukt eerst een CRLF en daarna de waarde van de 


VALue van UE af. 
PRINT C°VALUE) drukt de waarde van "VALUE af. 


Even een opmerking tussendoor. Het gebruik van symbolen die 
beginnen met een hoofdletter gevolgd door kleine letters is 
niet mogelijk. Dit ligt niet aan SALFAA, maar aan die ver= 


rekte basic waar we mee opgescheept zitten. Dus niet :Waarde 
De oplossingen zijn dezelfde als boven: 

1. andere naam + WAARDE 

2. kleine letters twaarde 

3. single quote Waarde 
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ALENA dee LASTFale wit 








Ze AU Asaa € 
By Gau du CEIION (40 

tuù Soet DIF „CODE H3FC Vertension byte 

Ho OFC EF „ETE AFF \ don't etend 

120 SFB 246 2845 = 02400 Vor any other KAN page 
14u C3FD kOVA :SNEICH  = AB8CA Vor any other KAN byte 


15u OEFD 020 

heg O3FD CLG 
MEE 
ĳ vos 
wt 
abn 
Judi 
voed 
bied 
z4e0 
260 Zu FE TL 








2u 2408 A4 VE 
20 IB 20 

30u MUI A4 23 
MO Zevg A4 29 
32u 2400 80 

BO Zeef 10E 
30 20E 20 EL 
3Ö ZAL Ch 0 
Ho 2415 Ab 04 
MO 415 65 16 
350 2417 80 dâ 
350 241A 6D FF 
350 Zalb 29 CD 
350 242 4C 56 
360 2423 1423 
30 2423 20 2E 
30 2420 AC Ib 
380 2423 2424 
3 AD 05 
150 uz 
de EE Fu 04 
40 23e £4 Ca 
460 2432 DO 78 
490 2434 204 
300 2434 Al dB 





1850 M07 2D 
1480 2457 Di EQ 
1460 2469 Lj 2 
1470 ZADB Ca 

1470 250 Di Fa 


€ 
A4 










14Rú 
1490 





BEC  = 1202 








zOh6sR  = 1C908 \arrginal break handler 
:LAECH = SBEFF 
IEF 2 14E N smitch/no switch Hag 
Ja: 8 \ nuaber of epraas 
sEREDAC : 
= hR 
) 
Hej 
tise 
te LENIE APF AE3,1Cô 
ET ASCHKCH* 





KOA: 1300 





„SCHILT 
„ObrIË Dikad: H06G 
„DEYTE ENTRY: ROO 


„BriE 136 \ end of “table” 
:RON 
C4 Js4 CEL; CEC MOS; LDI #06; LDA dIb,T 


DEE O4; LOT Duk; LDA Alb, t 
LOT tui; LOA d1b,f 
LDA Hb, 
60 Sh SMITH; STA LAICH; JSR TEST; JMP 1C558 
de SIR LAICH; JSR FEST; JMP ACSSB 
H JSK TEST; JP 4558 
5 JkF 16553 
DID 
ij ISR HA2E; JAF KCHLB 
c5 JAF CHE 
zENIRT 
Di] LDR BAKVEC « 1 
CAE LRREAKI 7255 \tey to saitch if BRKVEC 
BEO TRY"SAITCH \ has been sel to BREAK 
CrFe1ORGERKN 1256 \ has BRKVEC been re-set? 
BRE OOH” TSH LICH N yes, don't switch 


EET SMEECH 
LD t0b \ check if any vector 





zTEST 
UHP (NEE) „F5 NE RIS 
HE RIS 
IKCGBME TEST”; INC ME9; LDI HE9;CP18HBO; BEC TEST 
BNE TEST; INC #€9;LDI 4E9;CPIERBO; BEC TEST 
IE MES; LDT HEI; CPKENBO; BEC TEST 
LOL MEA: CPLPAKO; BCC TEST 
Ortho BEC TEST” 
Sct TEST 
Fn dS% HTDI 
TS? AF 402 El 58 41 49 AC AL 42 AC 45 OA 0D EA 
„ASCII WMD ROK AVALLABLEN,LF ‚CA, HOP 
:KDS #15 
kIS 


„teit V activate estended page 
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LORENgagsdenc 
ZORENV. Peter Ehrlich 

ZOBASENSA; CLEAR4 

AOCREATE/P: 1 0,#C1,#5D,#55, #55, HED, CI, 
SOMOVED, 0; DRAW255, 60 

&OELOCK1 ,70,70,115,72 
7OMOVELD, 9D; DRAW19S, 90 
BOMOVE127, 192; DRAWL27, 182 
PODRAH1SU, 165; DRAHLDS, 165; DRAW127, 180 
18BPAINT127, 166: PAINT127,170 

11GFOR H=-156 TO 450 5,25 
120VLINEG,H,0,127,110,58,2,A,B 

130N 

140RENd ivan 

150MDVE78,87; DRAW178,B7: DRAW185,70 
L&EDRAN7 0,70; DRAW78,B7 
178BLOCKO,80,71,95,14 

180MOVE7 2,703 DRAWS 3,57; DRAW203, 57; DRAW185, 78 
190MOVES9, 60; PLOT7, 198,60 
200MOVESB, 59; PLOT7 „199,59 

210BLDCKO, 53,40, 151,16; CUBEL, A, 53,40, 151,16 
220MOVEIO, 70; DRAN185, 70 

2IOREN kast 

240BLOCK1,0,50,38,128; FLOCKB,8,50,4,50 
25ONOVE3E, 50; DRAWSS „60; DRAWSS , 165; DRAWS8, 178 
260DRAWZ8, SB; HOVE4D, 54; FLOT7,40,174 
270PAINT45,60 

280MOVEO, 18B;PLOT7,38, 100 
290MOVEO, 128; FLOT7 „38, 128 

30OMOVEO, 15D;PLOT/,38, 150 
310K=28;Y=110; GOS. bj X=8; Y=110; GOS. b 
320X=28; Y=1358; BOS. bi X=8; Y=138; GDS. b 
330X=28; Y=16D; GOS. bj X=8} Y=148; GOS. b 
3ARMOVEZI,6B;PLOT7 „52,60 
35OREN lamp 

36DMOVE225, 48; DRAW235, 48 
37QMOVE217 „49; DRAW243, 49 
3BENDVE215, 50; DRAW245 „50 
39OMOVE217 „51; DRAW245,51 
AOOMDVE225, 52; DRAW235 „52 
A1OMOVE229 „50; DRAW229 ‚110 
420MOVE250, 110; DRAWZ5D,50 
83OHOVE231 „50; DRAW231, 110 

44 ADRAW250, 118; DRAW242, 155; DRAW218, 135 
85ODRAW210, 110; DRAW230, 110 
46GBLOCK@, 220, 111,20,22;PAINT230, 120 
A7QPAINT60,99,1;PAINT208, 99,1 
ABOFAINT120, 168, 1;PAINTLOO, 190,1 
89QPAINT6R, 88,1; PAINT202,8D, 1 
SOOPAINT250,80,1;FAINT250, 115,1 
SIOFORN=49 TO 174 5.5 
S2OHLINE1,39,N, 130,99, 200,1,X,Y 
SION. 











SABRENbekleding divan 
5SEFOR H=55 TO 2035.3 

568 VLINEG,H,40,H,99,57,D,A,B 
570 VLINEB,H,57,127,120,70,0,A,B 
SEEN. 

S9QFOR H=7D TO 185 5,3 

6D VLINEG,H,70,127,186,87,0,A,B 
61DN. 

6201NV 

63DREM walk 
640x=85; Y=145 
650X=93; Y=149; 







780X=105; Y=143; R=7; GOS. 
710X=115;Y=145jR=54 505. c 
Y2BDEF PLANT,O020901 1001108002 


730DEF: 111001100811 1028 
780DEF: 811101181811 1011 
75ODEF : @Rt1G11LDO11D111 
7EGDEF: 1@11111201181110 
77ODEF: O111111001111022 
780DEF; LiEtlilitttln1 tg 
79BDEF: BilLltilill1t10® 


BOOFOR H=74 TO 170 5.21 
BiB SET: PLANT, H,9B;N 

B20REM schip 
BZENOVE7D, 109; DRAW185, 109 
B4OMOVEND, 105; DRANL&S, 105 
BSOHOVE10S, 100; DRAW1 5E, 100 
B6BSCUND2SS, 255 

B7OWINDOWI ,70,98,114,70 

B80FOR H=50 TO 500 
B9GHOVEH, 118; PLOT, (H-8) ‚110 
OOMOVE (H-45) „119; PLOT&, (H-45) „125 
Q1DMOVE (H-53) „124; FLOT&, (H-55) „126 
92OMDVE (H-62) ‚118: PLOT&, (H-60) „118 
PEUMOVE (H-5B) „1232 FLOT&, (H-5B) 119 
9AOMOVE (H-56) „126; PLOT&, (H-5ô) „124 
G5ON. 

Z6OINV;G. 86E 

PIDDREN barden 
GBOBLOCKO, (X-2), (Y-2),5,5 





99FOR R=3 TO 9 
1088 CIRCLEO,X,Y‚R 
1O1ON. ;F. 


1@2BcREMschijf 
1OSDELOCK 1, (X-2) ,(Y-2,5,5 
1840FORN=3 TO P 
1O5BCIRCLEL„X,Y‚N 
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BOOTSTRAP ROUT INE 


Deze bootstrap opstart routine ís geschreven voor de 6582 bootstrap van Acern 
Nieuws 35.7, 

De routine kan les gebruikt worden maar kan ook een plaatsje vinden in de 
schakelsoft of in een Utilityram. (vaar mensen zonder geheugenkaart of 
schakelkaart). De atom zal bij gebruik van deze routine opstarten met de tekst 
“ACORN ATOM DOS BASIC” waneer een disc-drive aanwezig is, de disk wordt 
uiteraard uiteraard automatisch aangezet, Het test-byte dat hiervoor gebruikt 
wordt is de data #00 op adres #EFAA, dit hoeft niet altijd overeen te kamen 
omdat er meerdere versie's bestaan. De tekst “BOOTSTRAP" die hieronder volgt kan 
iedereen zelf veranderen en is hier alleen als voorbeeld gekozen 

De bootstrap zal verder na een break niet meer terug springen naar de tekst-page 
#29 maar blijven staan waar hij stond. De oude break kan men weer verkrijgen 
door het samen intoetsen van shift en break. 

Was er in de textpage voor de break nog een programma aanwezig dan dan zal er na 
de break informatie over de textpage en de top van het programma verschijnen 
Men kan nu zonder old ot end direkt weer verder werken aan datzelfde programma 
De plaats van de routine in het geheugen is niet belangrijk echter deze 
uitvoering is zodanig geschreven dat hij direkt werkt bij een beginadres van 
bijv. #1FDO, #2FOD, #ZFO enz. Wilt men de routine toch op een andere plaats 
zetten dan zuilen de interupt-vectoren niet direkt achter het programma gezet 
kunnen worden omdat deze niet de laatste & bytes van een 4Kbyte geheugen blok 
zijn. Men zal nu zelf de vectaren in het geheugen moeten zetten. Voor de 
instelling van de bootstrap wordt verwezen naar het artikel “baststrap" in de 
Acorn Nieuws van december 1984 

Verder nog veel plezier met deze routine 


LOREM BOOTSTRAP ROUTINE 
2OREM VERSIE 2,5 
BOREN CHARL DE MOOR 
AOREM DATE: 18,12,84 
50 DIMLL®,AB,B8; @=0;F.L=0T09;LLL=HFFFIN. 
6D P,$6812"BOOTSTRAP ROUTINE"""VERSIE 2,5 CHARL DE MOOR” 
79 P‚“ VOORBEELD STARTADRES: #,EED"'" * PAGINA: O-F"" 
8D FP,“ BIJ ANDER START ADRES INTERUPT"”" POINTERS ZELF" 
90 P, "AANPASSEN" ’" ZIE A‚N. DEC.1984 BLZ, 6B""* 
100 IN,"START ADRES :"2;1F?18=2/256;G. 100 
110 IN, "PRINTER (J/N) "sa 
128 IN, "LISTING (J/N) "$8 
130 P,'“PABS:1"$21;F. I=1T02;P=Z; ?#EB=0; IF I=16. 170 
149 P.$6481"$2i 
158 IFIA=CH"J"P.$2 
160 IF?B=CH"J"P,$6 
178 
180: LUO; LOXE#17;LDAKFE; CMPE#GA; BEG LL1 
185 LDA@KDA;STARFE; LDA@#29; STAR1Z 
FOOrLLIGLDARFFOA, A5 STAR2OA,X; DEX BPLLLAGTXS3 TKA; INK 
200 STX8EA; STXHEIG STXHET ; STXHCB; LDXEHIS 
210:LL2; STAN2EB, Xs DEX; BPLLL 2; LDA@HB7; STARBOD2; LDA@HBA; STA#BDIT 
220 JSRHF7DI; 1; !P=#OFACHÓ; P=P+3 
230 $P=" ACORN ATOM ";P=PALENP;[;LDAHEFAA; BNELLS 
248 JSRAEOOO; ISRAFID1; 1; $P="DOS *;P=P+LENP; ; NOP 
250: LL 53 JSRHFTDI ; hj sP="BASIC"}P=P4+LENP} 1P=#ODRA;P=P42 
260 4P=" BOOTSTRAP*;P=P+LENP; | P=#ODDADAGP=P453[ 
270 LDAEBODI;CMPERIF; NELLA SHIFT TOETS 2 - 
268 JSRLLB: JMF#C282 
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290: LL4; LDA#12; STAKGE; LDACHOI 
300 LSRA;STANOD; TAY;LDA(HBD) ,Y;CMPEKOD , 
518 BNELLS: INY;LDAC4@D) ,Y; BPLLLG 
320:LLSLDYERBG: LDAENAD; STALHAD) ,Y; INY;LDAGHFF; STA (HAD) ,Y; INY 
530 STY&OD; JSRLLE; JMPKC286 

34B:LL6; LDYEHBD 

350:LL7; INY;BEQLLS: ;LDA(HAD) ‚Ys; CMPEHOD; BNELL 7 

56B JSRHCDBC;LDACHBD) ‚Ys BMILLG; INY3 BNELL? 

370rLL9; JSRHF7DIG Js IP=KEDOA;P=P+23 SP=" TEXT POINTER: #4" 
Z8OP=F+LENF:{; NOP: LDA#12; JSRHFBO2; JSRHF7DI; J; IP=HODDA;P=P+2 
398 $P=" TOP OF 1 #"jP=P+LENP;L 

500 LDAHGE: JSRHFAUI;LDAROD; JSRHFBB2; JSRAFFED; JSRLLA; IMPHC2CA 
410:LLB; JSKHF7DI; Js $P=" READY";P=P+LENP 

420 'P=8ODBABA;P=P+3;[; NOP; RTS 

ASDliN.; IFTREB=#25;G. 470 

480 \F=tFFC7B2D6;F=P+4; IP=1125b;PIL=1/256;P=P42; IPEKFFB2; PeP+2 
430 IFPA1024<>0P,$4" INTERUPT POINTERS AANPASSEN 1" 

460 P‚$6 *READY"'""TOP OP: #"&P "LENGTE: #"P-Z" BYTES" "SEND 














470 P.$6874757'"QUT OF RANGE DETECTED"'";END 
LET OP: : 
Het kan zijn dat de routine bij gebruik met sommige schakelsoften problemen 
oplevert. 


Mochten er onverhoopt problemen zijn of heeft U nog suggesties, bel of schrijf 
dan even naar C. de Moor of E. Sanders, 


Voor het sebruik van de door M, Janssen in Acornnieuws Je jaarsans 
no. S beschreven verbeterde 1200 baud leesroutine moeten een aantal 
door hem aanseseven wijziainsen in P-Charme aansebracht worden. 


Als je nu miet direct een Eprom-prosrammer in de buurt hebt (zoals 
iK), dan kun je toch deze nieuwe leesroutine sebruiken door de oude 
Toutine naar sen tees stukje RAM te copieren: daar de wijzisingen 
aan Te brengen en tot stot de atom te vertetlen waar de nieuwe 
leesrautine staat. 


Dit saat heel semakkelijk met het volgende prosramma’ tje: 


18 PROGRAM FCOS 

20 COPY #ADED, KAF TG, HWXYZ 

50 P=BWXYZ+H1E 

40 !'P=tED200E18; P! L=RFCHFZOFC SP! S=HOEBDIZED 





58 P! JEO4BOZE $P! 1E=HEAZEEF BO 
EB EDS 1 

TO MRZIGAVZI HELE HX 

BĲ END 


MET &WXYZ BIJV, #EBUBLZODAT YZ=00 EN WX=ED) 
Na 1 break even nieuw rUNTen. 
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INFPUTSUBROUT INES 


Onderstaande subroutines zijn bruikbaar in alle BASIC programma's. Zij dienen 
ervoor om een gebru:kersvriendelijke input van getallen of strings te 
bewerkstelligen. De eerste subroutine is een voorbeeldpregramma om getallen in 
te voeren. Door middel van een matrix worden deze getallen ingevoerd. De 
dimensies van de matrix warden bepaald door een aantal variabelen in regel 199 
en 268: 


(ntab) _ : aantal plaatsen vanaf links 
(vtab) _ : aantal plaatsen vanaf boven 
(kotom) : aantat kolommen in de x-richting 
(regel) : aantal regels in de y-richting 
(breedte): de kolombreedte 


WAOASI 


De groette van het in te voeren getal is afhankelijk van de kolombreedte. Met de 
toetsen A, Z, [ en } kan de cursor verplaatst worden naar ieder element van de 
matrix. Als ep een bepaalde plaats een getal ingetikt wordt, kan er door middel 
van de cursorbediening het getaì in de tweedimensionele array XII gevoerd 
worden. Een fout ingevoerd getal wordt eenvoudig verbeterd door met de cursor 
naar het getal te gaan en een nieuwe waarde in te tikken. Als men de 
invoersubroutine wil verlaten kan men op toets E drukken. De gegevens in de 
array XII kunnen dan verwerkt of opgeslagen worden 


De tweede subroutine is er een om strings, die reeds bekend zijn in het 
programma, aan te roepen zonder daarvoor de gehele string te hoeven intikken 
Als er bijvoorbeeld om een naam gevraagd wordt, zal de computer bij het intikken 
van de 'H' direkt reageren door de naam "HANS' te printen als deze naam in de 
stringarray vaor zau komen. Is er echter nog een naam die begint met een 'H’ dan 
zal de computer wachten tot er een tweede cf derde toets wordt ingedrukt, net 
zolang tatdat deze een string heeft gevonden, die verschillend is dan de 
anderen. Bedenk wel dat als deze subroutine gebruikt wordt voor een stringarray 
van 1080 elementen dat het wel eens erg lang kan duren voordat de computer alles 
gekontroleerd heeft. Dit is helaas te wijten aan de slechte stringfunkties van 
de Atom. Met een LEFT$ zou deze subroutine veel sneller zijn. 


18 PROGRAM INPUTSUBROUTINE 1 
20 REM Frans le Blanc 

50 DIM A(1B),LL(1O) 

48 FDIM XI1(4,9) 

50 FOR N=8 TO 10;LLN=-1; NEXT 
68 GOTO 268 

78 

88 REM voorbeeldmatrix: 5410 
98 PRINT $12 

189 HTAB10;1=65;8=5 
110 EF‚N=2T04;P.$(I+N) " viN.jP. 
120 FOR N=B TO 93PRINT * PN 
138 FOR J=8 TO 4 


140 ZILCJ,ND=BE PRINT ZIT, 

159 NEXT; PRINT 

1468 NEXT 

178 P. ““CURSORBESTURING: *” 

188 P.“A -— OMHOOG B - OMLAAG" '"[ — LINKS 1 - RECHTS" 


198 INVOER(18,2,5,18,5) 
208 P.$12;8=5 
Di E‚.N=Q TO 9 





EE 





INPUT SUBROUTINES FRANS LE BLANC ACORN NIEUWS 
220 PRINT * "N;F. J=@ TO 4;P. ZIICJ,NDiN.;P. 
230 NEXT 
24D END 
250 
268 PROC INVOER(M,V,K,R,BI 
278 
280 
29B DO C=C+1 
300 INKEY 1 
318  XIF 14265 A. IKD9B A. IDF A. 14993 A, 1469 
320 XIF E<B-1 
330 XIF I=CH"." OR I=CH"-" OR (ID=CH"A" AND IC=CH"9"I 
548 GETAL; CU. X,Y 
358 ELSE BEEP 29,38;CeC-t 
362 ELSE BEEP 20,58;C=C-1 
378 ELSE TARCURSOR 
580 UNTIL T=CH"E" 

398 PEND 
408 
418 PROC TABCURSOR 
428 IF C>OG ITC (X-HI ZB), (Y-U) VAL (A) 3 $A="" 
438 
440 
450 
468 IF I=CH"A";Y=Y-l 
478 IF I=CH"*Z vel 
ABB IF XCHyX=(K-1) #B4Hj V=V ol 
490 IF X7(K-1}#B+Hj X=Hj Y=Y tl 
500 IF YCVsY=R#V- 1; X=X-B;GUTO 480 
SIG IF Y>R#V-1jY=Vj X=X+B; GOTO 488 
528 CU.X,Y 
538 PEND 
540 
558 PROC GETAL ,X,Y 
56B KX=X-Bt1;CU.X,Y 
578 A?C=J;A?(CH1) =tOD 
589 F‚L=l TO B-LEN(A);P." "iN. 
590 PRINT $A 
ABO FEND 
610 
628 GOTO 90 
19 PROGRAM INPUTSUERDUTINE 2 
20 T=10 
38 DIM VVT) ,UUIT 
A0 F‚N=G TO 19$DIM UID) GUV IND =UjN 
58 GOTG 180 
#8 
78 REM voorbeeld 18 strings 
88 P‚s12* VOORBEELD" 
IB F‚N=i TO T;READ SUDIN)jN. 
188 DO 
118 P.“TYP EEN STRING IN: ” 
128 INVOER; P, 
138 U.B 
148 END 
158 
168 om geze subroutine gaat het '! 
17) GutatsentautsmtnkeonntunernaantsrnBEnantteranenuntenenn ds 
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188 PROC INVOER 

198 K=@ 

208 F.N=1 TO T}VVN=BjN. 

218 INKEY Ij1F 1>#60; 1=1-#20 

220 IF IXCH"A";BEEP 20,50;6. 218 

230 J=D 

240 F.N=1 TO T 

256 IF VVN=0; IF I=UUN?K OR I=UUN?K+#20; J=J+1 
260 N. 

270 IF J=0;BEEP 20,50;6.218 

288 J=0;P.$1 

290 F.N=t TO T 

300 XIF VVN=0 

310  XIF T=UUN?K OR I=UUN?K +620; J=J+ 1; MEN 
328 ELSE VWN=l 

33% ELSE 

340 N. 

350 IF J>l;KeKt1;6,210 

368 F.N=0 TO KjP.$85N. 

370 P.sUUM 

388 PEND 

398 BRERNERER BRENNER REEN EEE EK 
40e 

410 GOTO 70 

420 

430 DATA “PIET*, "KLAAS", "JAN", "ATOM" 

449 DATA “KODS", "PETER", "CORNELIS" 

450 DATA “MARJAN”, "MARIA", “ACORN” 

460 variabelen: 











478 

ABO ARRAY : vv 

490 STRING: uu 

500 AANTAL: T 

510 DUMMY : 1, J.K, MN 


CURSOR bd 


Met het statement CU(RSOR) x,y kan de cursor op iedere willekeurige plaats op 
het beeldscherm gezet worden. Ook in tekstmodes met meerdere karakters zoals de 
4D * 24 of 64 « 24 werkt onderstaand statement. 


1OFEM CURSOR voor alle modes 

2UREM cok voor GRMOD, VDU 4@#24 of 64#24 etcetera 
25REM Frans le Blanc 

30DIM LLA 

4BIN, "ROUTINE OP :"G 

SOF, N=BTO4;LLN=DjN. 


&OF.$21 

78F.N=0T0 1; P=D;L 

80: LLO 

„a JSR#C78B; JSRHC231 182 LDA#16; TAY; BEG LL4 
108 JSRICAE 1 190 LDAERDI 

119 LDX29; STX4 209:LL3 

120 LDA@32; JSRKFFF4 210 JSRAFFFA;DEY; BNE LLS 
138 LDA#17; TAY; BEG LL2 220:LL4 

148 LDA@#DA 230 JMP#C55B 

158:LL1 2401;N. ;P. $6$11;E=0 

168 JSRAFEFA:DEY; BNE LLL 25QP.“ROUTINE OP : #"&O"-H"EP" 


IFR: Lt? 26BE. 


SCHAKELKAART PROBLEMEN AREN SLOOTWEG 
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Schakelkaart problemen. 
Laatst belde aij ztemand die 
problemen had met zijn nieuwe 
schakelkaart. Altes zou 
volgens het boekje aangesloten 
zijn. (ACDRN NIEUWS ‘84 nr 7: 
blz 49). Er werkte echter 
niets... 


Ma een avand rondspitten op de 
nieuwe kaart kwamen we tat de 
volgende concluste: 

De kaart heeft een nieuwe 
adresdecoder gekregen n.l. een 
78LS154. Dit is een 4 naar 1á 
lijnen decader. Door dit IC 
aan te sluiten volgens fig. 1 
kunnen we het gehele 
adresgebied van BXXX tot FXXX 
uitdecaderen. Normaal ziet dit 
er als in fig. 1 getekend uit, 
Het verhaal wat ACORN NIEUWS 
(biz. 49) zou dan ook kloppen. 


zo, ziT HET ECHTER NIET, 
HELAAS, 
In werkelijkheid zijn de 


adressen Al5, 14, 13 en 12 
omgedraaid, waardoor de hele 
decader ing toch wel iets 


anders wardt. 
Dus het E blok zat op Puur 
B blok zat op Zuxx 
A blok zat op Sxux 





Volgens de werkelsjve (fig. 2) 
zit het dus 20: 

E blok naar pin B 

B blok naar pin 15 

A blok naar ain & 


veranderingen 
werkte de 


Taen we deze 
hadden gemaakt, 
kaart perfect. 


't is maar dat ie het weet, 
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“nx KEGRESSIE HX 


Op wen segeven moment bestond er bij mij de behoefte om van een 
aantal zaken de beste functie te bepaien. Wiskundis kar dat DP een 
aanta! manieref: bijv. door de PoiyYnoom te bepalen. 

Een nadeel van deze opiossing iS, behaive dat zelfs een zomputer er 






























ers lans over deet om bijv, wen S0-ste sraadsfunctie te bepalen, 
dat miet altijd een vineiende Lijn verkresen Wordt. Bovendien 
worden foutieve waarnemingen in een reeks gsetatlen volledis 
me bs: nt. 

Een andere: veel beken > 3 die m.b.v. veoressie, Maar 
veel Cnatuurkyridise) t niet lirneairt in de 
natuur Komen ere veel aritmist ntiele verban 1 Vaar 
Natuurtijk is het mosetijk omt de Iosaritmische: ExParen 
machts-reoressi en relaties T& bepalen. In het mi 
geschr me ramma wordt de reoressieliin van een variabe Y uit 
de verzameling X bepaald. Geko Kan el voor zowel Lim ires 
tasaritmische, eKpOntiele als machte=reoressie, Uiteraard iS de 
Lijn die bepaald wordt met de honsste absolute 








correlatiecaefficient st waarschijntijke funktie van Y uit X. 
Het prosramma heeft us dat voor zich spreekt 

Uiteraard is het ma ingevmerdt data oP sthijf te zetten en 
later Weer te lade rn entueel veranderingen in aan te brensen. 








































Dak is het mosetijk om srafieken op het zidscherm te tekenan. Het 
platten kan onderbroken worden met de Shift-toets, 
Het proeramma is vrij bana: ca, 1UK, dus ’ 1EK-kaart is welt men 
versiste. Verder moet U zen P-charme hebben en men  TXMOD en GRMOD 
Cnodis voor het tekenen van sratfteken), Verder Kunt U statements 
als INVERT, CLS: ERST gewoon wegtaten als U deze niet in een 
eventuele schakelkaart tt. Verder is het madig aats U GRMOD 
net als ik wok in eprom ERDOD heeft: om deze box steeds in te 
schakelen: mij bis gebeurt dat met het statement EPEROM). 

Ats U over n_ matrixerinter beschikt Kunt 
contraotcedes in dit prosramma Waarshidrl ijk Sebruik 
voor een AVT-printer. U kunt als U over een  sraohics-dume voor Uw 
orinter beschikt deze inbouwen na rearl 1608, 


data X : -165 
data Y : 165 


DATA 
x Y X Y 

1 3. 008420 2988020 2 4.000008 @. 00000 
3 5. 903200 8. 865000 4 6, 000028 %,729080 
5 7.020820 0. 449008 [) B. 329200 2622020 
7 9,000058 8. 582080 B 18. 020020 @. 550000 
9 11.902090 ®.521800 10 12, 009900 0.497800 
11 13.890008 g.476908 12 14. 030008 B. 458000 
13 15. 082000 2.441006 14 16, 000088 8.424080 
5 17.000002 ú.412800 16 18. 953000 0, 488058 
17 19, 902000 B, 589000 18 20. 020900 2. 378000 
19 21.009008 v.56r020 2! 22,002000 %. 360000 
21 24. 000020 B, 344008 22 26.002000 3. 352000 
23 28. 9629020 8.217800 24 28. 900090 2. 506000 
25 35. 002009 0.275800 2 40. 000898 8. 264000 
27 58. 008008 8.255000 28 6D. 929400 8, 214920 
29 78. 920998 8. 195088 52 80. 904000 8. 185020 


31 9. AAGASD B.175400 z2 108. 900903 8. 165009 


RKEBRESSIE FRANS LE BLANC 
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LINEAIR 
AANTAL PAREN = 32 
CORRELATIECOEFF, = -@.761518 
COEFFICIENT A = -8.8046164 
COEFFICIENT B = Y.685851 
DE REGRESSIELIJN VAN Y UIT X IS: 

LOGARITME 
AANTAL PAREN = 52 
CORRELATIECDEFF, = -0.96565F 
COEFFICIENT A = -8. 2255 
COEFFICIENT B = 2.985316 
DE REGRESSIELIJN VAN Y UIT X IS: 

EXPONENT 
AANTAL PAREN = 52 
CORRELATIECGEFF, = -0.899411 
COEFFICIENT A = -8.816527 
COEFFICIENT B = -0.479911 
DE REGRESSIELIJN VAN Y UIT X 15: 

MACHT 
AANTAL PAREN = 52 
CORRELATIECOEFF, = -8,999673 
COEFFICIENT A = -8, 526593 
COEFFICIENT B = 1.859570 
DE REGRESSIELIJN VAN Y UIT X IS: 
STATISTIEK 

AANTAL PAREN = Se 
COVARIANTIE = 8.86555t 
GEMIDDELDE X = 27.595758 
GEMIDDELDE Y = 2,436718 
STAND.DEV, X = 25,851787 
STAND.DEV, Y = 8209122 
MAX TMUM X = 108.020009 
MAXIMUM Y = 4988000 
MINTMUM X = 5.000008 
MEN TMUM Y = Q.165008 


Y = -8.086164 # X +0.604B51 


Y = -0.225584 & In X + In2.985516 


Y = g' -8.416527 « x 8479911 


Y =1,83957D & X ze.szases 


Acorn Atom-corputer 
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In Acorntjesbrood 2.2 heb ik op pag.7 en 3 het &En en ander 
verteld over het implementeren van BEC Basic op de Atom zonder 
de BEC-kaart de gebruiken. Het aldaar voorgestelde plan om door 
het relocaten van de ZOK ROM van de EEC-kaart het mogelijk te 
maken om in een willekeurige Atom deze ZOK in te laden in het 
geheugen en dan EEC Basic te kunnen draaien was weliswaar nog 
lang niet afgerond, maar toch wilden wij U er alvast het één en 
ander over vertellen. (Projectgroepen, meldt de stand van zaken 
in Acornt jesbraod'!') . 

Toen door het beschikbaar komen van P-Charme onze animo om Nog 
veel tijd aan dit project te besteden al flink gedaald was 


‘procedures, functies {beide zelfs nog krachtiger dan in EEC 
HKasic), meerdimensionale arrays, controlstructures en nog veel 
meer, beschikbaar voor Èlke Atom), viel als klap op de vuurpijl 
bij mij het aprilnummer van de Stacker (regio Moord) in de 
brievenbus (voor het drukwerkarchief, U weet wel). Hierin las 
ìk met rode oortjes een beschijving van Marien van Westen hoe 
Kij met een aantal hardware Wijzigingen (kosten ongeveer 25 
gul den) BEC Basic op zijn Atom draait. (Dus zonder het 
relocaten van de ROM's). In principe voert hij de wijzigingen 


zoals die op de KEC-kaart plaatsvinden in een veel eenvoudiger 
vorm uit, = 

In het licht van deze ontwikkeling viel al vrij snel het 
besluit te stoppen met het relocaten van de ROM’ s {ja 
inderdaad, zonde van de tijd.) 


De hardware modificaties van Marien (voor geïnteresseerden: zie 

het. drukwerkarchief) waren niet zonder meer toepasbaar in mi jn 

Atom, omdat hij zijn BAXXX-blok binnen de bus heeft en ik dat 

buiten de bus heb op de schakelkaart. (Ik zal hier maar niet 

verder op de details ingaan). 

Na enig experimenteren en solderen lukte het Eram en mij om op 

mijn Atom BBC Rasic te draaien (1). We hebben het basis-idee 

van Marien gebruikt en zijn uiteindelijk op een vrij nette en 

eenvoudige ombouw uitgekomen. 

Voor ik die uit de doeken doe zal ik even mijn systeem (voor 

zover relevant) beschi jven: 

= RAM van #2ODO-H7FFEF, waarvan H40OO-H7FFF op de geheugenkaart 
zit. 

= EClub-schakelkaart, waardoor het voetje voor IC24 op het moe- 
derboard leeg is. 

— VIA (6522). Deze is nodig voor o.a. de statements SOUND en 
TIME. 


Indien U de hierna volgende wijzigingen niet begrijpt en niet 
weet wat U doet, kunt U er maar beter niet aan beginnen. 


Het implementeren van BBC Basic is op te splitsen in 3 

afzonderlijke delen: 

1) Door het in BRC Basic stand verwisselen van adreslijn A14 en 
A15 komt de geheugenkaart (#4000-H7FFF) op #8000-#BFFF en 
omgekeerd. We kunnen dan de BBC Basic interpreter inladen op 
#4AOOO-H7FFF en die komt dan in BBC stand op de goede adres 
sen (nl.#8000-#BFFF), Om te voorkomen dat door schrijffouten 
de interpreter wordt overschreven,is het handig de geheugen— 
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5) 


kaart op write-protect te kunnen zetten. 

Ikzelf gebruik voor het omschakelen tussen Atom en BBC Basic 
een driepolige omschakelaar,waarvan 2/3 voor het vernisselen 
van de adreslijnen wordt gebruikt, en wel als volgt: 


uifgehogen 
penis TCat 


ta, 
Ant Alo 


pe 3 Icar 
An 










wedge be én 

Pen 25 Feet 

Ass paf zcz3 
AI5 


fa 1 Verwisselen Arg em Ars. 


Het derde wisselkontakt van de schakelaar hebben we nodig om 
te kunnen kiezen tussen het normale Atom F-blok en de 
BEC-MOS-ROM, die cok op #FXXX moet zitten. Deze BBC-MOS-ROM 
bevindt zich bij mij in een 2732 eprom die via een tussen- 
voetje in de tot nu toe lege IC24-voet op het moederboard 
zit (leeg vanwege de schakelkaart). Hij kan natuurlijk cok 
in een 2552.Via een tussenvoetje dan pen 20 van de 2532 (CS) 
uitbuigen. 

We kunnen tussen deze 2 F-blokken als volgt omschakelen: 


pen z (Ze2u) teek bag on, 


88 









CS vaer MOS-Ron Frez 











Ice 
persie 


CLA 


jn 
Sekhteren Mos-Kon ze 45 


an te 
boete 


Verder moeten we RAM hebben op #0400-#07FF. Dit wordt als 
werkgebied gebruikt. 

Eén van de vele manieren om dit te krijgen is de volgende: 
Stapel twee 2114’s in het lage tekstgeheugen. Verbind de 
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beide uitgebogen CS-lijnen (pen B) met onderstaande deco- 
deerschakeling: 


Ar peat ter 2 






ki CS gen Jer 





Penn res 
evt, via dieda 


Ls. ZA. Utdecedetin Hiee-#PEF 


Het gebruikte IC (74LS10) kan bijvoorbeeld worden gestapeld 
op IC7 op het moederboard of,‚als Uw kast dan niet meer sluit 
omdat de schakelkaart of de geheugenkaart in de weg zit, op 
bijv. 1C48. 

Op IC7 gaat de zaak er als volgt uitzien: 


CS tom pir 





RN EE EE 
TCR ea: Jrtsre 








2 





pen y 
Eep tn 2,3, 7 En 14 
vastseldeasn op rep. 
Jae overige pennan 
wab agen. 


Van het gebeugengebied #2000-#7FFF wordt dus #4G00-#7FFEF voor 
de BEC Hasic interpreter gebruikt. Het gebied #20O0-REFFF (BK) 
is beschikbaar voor het BBC Easic programma. In de BBC-MOS-ROM 
moet op adres BFOFF en #FI07 het high-byte van het begin van 
dit gebied worden ingevuld (bij mij dus #20). Heeft U geen 
gestapeld laag geheugen (#2000-827FF) dan dus #28. Heeft U RAM 
op #IXXX of nog lager, dan kan dat natuurlijk ook gebruikt 
worden. Het BBC programma mag zelfs nog op #0800 beginnen. 


Na het uitvoeren van deze wijzigingen moet de BBC Basic 
interpreter ingeladen worden bop #4000 e.v. Terwijl we de 
<BREAK>=toets ingedrukt houden, zetten we de driepolige 
omschakelaar om, laten de <BREAK>-toets los en drukken er nog 
een keer op. Nu moet de tekst: BBC BASIC en de “yr-pronpt op 
het beeldscherm verschijnen. 
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U kunt nu BBC Basic gebruiken. De bij de BBC Basic kaart 
geleverde "manual" is erg summier en slecht, zodat een extra 
boek over B&C Basic eigenlijk wel nodig is. Ikzeìf heb het 
nederlandse boek "BBE Microcomputer" van A.Sickler (prijs 
F.29,50, uitgeverij Kluwer) aangeschaft. 

Alle op KBC hardware gebaseerde statements, zoals ENVELOPE, 
ADVAL, COLOUR enz. kunnen we uiteraard niet gebruiken. De 
meeste EEC programma’s wit tijdschriften (spelletjes) maken 
hier gebruik van en moeten worden aangepast of zijn überhaupt 
niet te runnen door bijv. bepaalde VDU-statements. U hoeft RBC 
Basic däárvoor dan ook niet te implementeren. Wèl vanwege 





ondermeer lange variabelen (integer en floating point), 
Microsoft-achtige stringhandling, de hoge executiesnelheid en 
de diverse geavanceerde statements, (Beschouw bijv. eens het 


instellen m.b.v. 9% van de wijze waarop getallen met PRINT 
worden afgedrukt). 


Het is niet eenvoudig te realiseren dat er in BEC-stand gebruik 
van de Atom-DOS kan worden gemaakt. Hiervoor moet de DOS-ROM 
sterk gewijzigd worden. Dus files in Atom-stand inladen of 
saven en dan weer terugschakelen. - 

Op dit moment ben ik bezig met het aanpassen van de BRC-MOS-ROM 
zodat de COS op 1200 baud werkt (met dank aan Marien) en een 
aantal andere wijzigingen. De belangrijkste hiervan is het 
aanbouwen van de 40424-kolommen VvDU van Paul Kuyper 
(AcornNieuws 2.4 pag. 70) in een aan de BEC-MOS-ROM aangepaste 
versie. Hierdoor zijn kleine letters en een standaard scherm 
van 24 regels van 40 kolommen beschikbaar. Dit komt o.a. van 
pas bij Basicode-2, waarvoor Marien een leesroutine heeft 
gemaakt. (Hasicode-2 op de Atom!). Hierover kunt U alles lezen 
in het volgende nummer van Acaornt jesbrood. 
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ginds een jaar heb ik, tot volle tevredenheid, een lichtpen aan mijn atom hangen. 
De pen kan verticaal 192 posities (lijnen) onderscheiden (kan meer maar lijkt me 


niet nodig). 
In een programma met b.v. enkele menu's is het erg goed te gebruiken (tot 16 


keuze’ s). 


De hardware 


Om de benodigde lichtsterkte te kunnen regelen heb ik de volgende schakeling uit 
een Philips EE-doos gebruikt (misbruikt). 


Lienrgevastr ae 
Trausis tok 


Ra BPX 85 


ve (BP 133) 


ee cegeüikre AawsluiTinGen 





De schakeling is geplaatst aan de VIA. de lichtgevoelige transistor met ingebouwd 
lensje is een pen geplaatst. 


Globale werking 


hdreswieso van de VIA geeft aan of de efctronenstraal (lichtpuntje) een beeld 
aan het schrijven is (1) of dat deze van onder naar boven terug gaat (flyback) @ 


=| Ni 


; 
Dit schrijven gebeurt een aantal malen per seconde. door onze hersentraagheid zien 
we beelden (vergelijk film). 
Stel voor dat de lichtgevoelige cel ergens op het scherm staat ter plekke van 
een geprint blokje. Als de electronenbundel het beeld begint te schrijven (dit 
kunnen we dus testen) is de tevoren geinitialiseerde VIA-counter begonnen met 
aftellen. 
Als ter pìekke van de lichtcel een blokje wordt geschreven krijgt de cel licht 
binnen (ook te testen) en lezen we de counter uit. Deze waarde gaat naar de 
varinbele L. Na wat rekenwerk hebben we de positie. 
De 1 Miz van de Atom blijkt te langzaam om ook horizontaal de plaats te bepalen. 





( 








eer 


peur 


ACHTER Kanr ATon 
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ODIE 





6.18 
NEEESKENEN EEEN RAAR EEEN EEE 
** UITLEESROUTINE LICHTPEN head 
«rt RESULTAAT IN BASIC-VARIABELE L tet 
+ DOOR JOOST DE WIJS ten 
«xr RAPPORTSTRAAT 12-A hdd 
er 5504 RP VELDHOVEN hdd 
BEERRRKRNEE ERDER ERK EEEEE EE EA 
DIMEL4;F, I=BTOAG LL (IJ =-1iN. 
F.I=1702;P=#2808; PF, $21;L 

:(LB BIT #RBOO;AFL LLG 

:tL1 BIT #ROO25BFL LUI 

:LL2 BIT #EQB2;BMI LL2 \FLYBACK 7? 
LDA@0; STAHKOZS; STAHBEOG; STAKRBUZ 


:LLS BIT #EBO2z EPL LLS 
:LL4 RIT #E8BO;EFL LL4 


L 





DA #R80B;STA #052 


LDA #E809;STA #054B \ 


Fi 
Dj 
L 


Ri 
FP 
F 
L 


TS \TERUG NAAR BASIC 


-$6;N. 





=8 


EM #4£ 192 VERTICALE LIJNEN +++ 
„$12;7225=0 

-1=GT0S12 STEPZ2; 1°#80B8=127;N. 
INK#2820 

„8507 $989$959$989$9, (41059-L)/63 


GOTO 178 


REM «4x 16 KEUZE'S IN TEKSTMODE te 
REM #ee BV IN MENU duid 


Fe 
F 


„$12;7205=0;F.$9$G"=EINDE TEST" 
„I=8TO512 STEF32;1°#B0EG=7b 





IFIC310s F°R8EBI= (1/52) +4) iN. 


Ï 
a 


L 


BBB {1/52 -P)jN, 
=0 
INY#2008 


t=168759-L)/725 
IF LíB OR L:15;G.318 


G 


"°89598959898IST, LL, S7 
OTO Ein 


\LICHT 7 
\GEEN FLYBACK 7 


\GEEN FLYBACK 
\LICHT 2 
\COUNTERS IN L 


\COUNTERS MAX. ;VIA INPUT 
(LINKSBOVEN) ? 


85 
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Inteiding 


Binnen de Acorn club zijn diverse typen printers in gebruik. 
Al deze printers hebben dem.v. stuurcodes omschakel bare 
mogeli jkheden zoals: ECondensed en Enlarged lettertypes, 
Tab-setting, Bit image e.d. 
Voor dezelfde functie kunnen de stuurcodes per printer 
verschillen. Dit heeft tot gevolg dat een programma of een 
wordpack file gemaakt voor de ene printer niet goed werkt op 
andere printers. We moeten de stuurcodes bijstellen, en om dit 
te kunnen doen moeten we weten wat bij de diverse printers de 
overeenkomende stuurcodes zijn. Dit overzicht kan u hierbij van 
dienst zijn. Het geeft per printer aan voor welke functie men 
welke bijbehorende stuurcode moet gebruiken. 


De Frinters 





De in dit overzicht betrokken printers ziinr 


ITT SES1 

EPSON MXB0 
RXBO 
MX 100 

STAR DP510 
DFS15 


Gemini 10 X 
MICROLINE 80 
NEC FCBO23 
OLIVETTI Inktjet PR2300 


De Codes 


Alle stuurcodes hebben gemeen dat ze met een ASCIE cor'rol 
code beginnen. 


b.v. SI (HOF). 
Veel codes bestaan uit een ESC (#1R) gevolad door een letter 
b.v. ESC A 


Dit wordt naar de printer gestuurd als de getallen #1IE en #41 





(decimaal 27 en 65). In de wordpack zou dat er als volgt uit 
kunnen zien: „oZ7.cb5 
Er zijn ook codes waarbij u een of meer aetailen moet invoeren. 
B.v. een variabele line-feed. Dit zou kunnen aijn: 

ESC An 
waarbij n egen getal is dat voor n/72 inch line feed zorgt. Als 


ik 15/72 inch line feed zou willen hebben zou dit dus in de 
textverwerker er als volgt uit kunnen zien: 


„or7.ob5.aots 
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Met getallen aìs n dient u er om te denken dat de getallen 2, 2 
en het getal in FE (normaal dec. 10) niet naar de printer 
verstuurd worden. 

In dit overzicht zal ik het getal n niet in het overzicht 
opnemen. Dus als bij uw printer een line feed van n/72 inch als: 
ESC A n moet worden ingevoerd, staat in de tabel alleen ESC A. 
Ditzelfde geldt voor de zgn "afsluiters" b.v. bij tab-setting om 
aan te geven dat er niet meer tabs komen. 

Voorbeeld: een tab op de 10e, 20e en 30e positie zou als volgt 
kunnen worden ingevoerd: 





-027.072.010, 020.030, 00 
ESC D “10 "20 "50 Afsluiter 


Toch wordt in de tabel alleen ESC D opgegeven. Dit is gedaan om 
de tabellen niet te onoverzichtelijk te maken. 

Ook nog een opmerking m.b.t. de zgn “graphics modes". De 
getallen achter de stuurcodes hebben een dermate andere 
betekenis dat alleen het verwissellen van de code niet werkt. We 
kennen de bit-image of dot=-image mode, waarbij men direct de 
printpennen aanstuurt. Elke pen heeft een bepaalde waarde (1 2 4 


8 e.d.), en door het versturen van het juiste getal kan men 
bereiken dat b.v. de le, 2e en Se pen een afdruk maken. Een 
andere methode is de zgn semi-graphics mode. Dit zijn in de 
printer "ingebakken" graphics symbolen die vaak met een 
stuurkode boven de #7F te bereiken zijn. Fer printer is dit 
alles dus anders. Enige voorbeelden: 
Epson, 
ITTEZSt en z Bit image 3 ESC KéL) 1 h 
Star waarbij: l = aantal bit image char. op regel % 
256 
h = aantal bit image char. op regel / 
258 


Microline 80 7 Block graphics boven de # 7F 


NEC PCBO2E 1 Rit image : ESC 6 1 h 
voor 1 en h zie EFSON MX80 
bovendien ook nog blockaraphics 





Olivetki : ESC G bh ds Z 
waarbij « b beginpositie vanaf zijkant 
h breedte 
d = diepte 
5 spatie tussen 2 lijnen 
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De in het overzicht gebruikte codes hebben de volgende waarden: 





OON UR 





N<XECCECHWZAVOZZKUTDAMUNOARPE wh A 
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Frint mode 


tse) 
ETT 3351 Star: Star: “Tree: “Tmieror ine Olivetti 




























































































Epsan: RX 80 DP510 | Gemini- | Fcao2s | ao PR2360- 
KX80 DP515 1Ö X 1akt jet 
MX 100 
+ 
Condensed On |sr si st st esco fes 
Condensed Off | DC2 DC2 DC2 DC2 
Double Hi ghth _ ESC” 
Double Strike ESC G ESC G ESC G ESC G ESC * 
(Enhanced) Oft [ESC H ESC H ESC H ESC _H ESC * 
Elite On ESC M ESC H ESC F STX 
Elite Off | DC2 _J ESC P 
Enphasised On Î ESC E Esc € ESC E ESC E 
Emphasised 044 | ESC F ESC F ESC F ESC F 
En) argest On ESC W_ SOH ESC W SOH Us ESC 3 
Enlarged Off ESC W NU ESC _W NU Ei 
Enl. line On | SO so so so 50 
Enl. line Ots | St SI SI SI SI 
Grret characters ESC & 
Italies On ESC 4 ESC 4 ESC 4 
Italics Off ESC 5 ESC 5 ESC 5 
Hor mal DC4 ESC_N R5 ESC < 
Proportional ESC P L 
Subscript On ESC 5 NU | ESC 5 NU { ESC S NUL| ESC 5 NU 
Subscript Off j ESC T ESC T ESC T NUL! ESC T NU 
1) 
| Superscript ESC S SOH| ESC S SCH| ESC S SOH| ESC 5 SOH 
Superscript Off | ESC T ESC T ESC T SON| ESC T 50H 
1 
[Oner Tined: 
Nor pal On ESC — ESC — SOH| ESC — ESC — SOH [ESC X ESX + 0 
Mormal 04 ESC — NUL ESC — NUL [ESC Y 
L Double ESC $ 1 
Spickted D ESC 4 2 
L_ 
[- ne spacin 
51 | Epson: Star: Star: T nec: Microline | Olivetti 
Epson: FX 86 DPSIO | Gemni- | Fcao2s} ao PR2300- 
MX80 DPS15 1e x inkt jet 
MALO 
Line L/T inch 
verd 1/6 inch | Es 2 Esc 2 ESC 2 ESC 2 
1/8 inch ESC 0 ESC 0 ESC 0 ESC û 
ZI On ESC 1 ESC 1 ESC 1 
1772 | ESC A Esc A ESC A ESC A 
n/1sa » ESC 3 Esc 3 
u/216 » ESC 3 
1 em 
1 time LE n lines ESC à 
1 time LE 
nr 2e omen Esc J ESC J 
17144 nch Esc J 
MADIA anche 
Farmard LE direct. 
Fesersud (F aur. 
ii 
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L Format Control | 














































































IT 3354 | Epson: Star: Star: Nec: Microline | Otivetti 
Epson: Rx 80 D#510 Gemini - FCBO23 80 PR2300- 
MX80 DES15 10 x inktjet 
MX100 
mi 
Set HTab ESC D ESC e NUL | ESC DP ESC D ESC 2 ESC P 
Reset single HTab ESC > 
Ctear all Htabs ESC 2 
1 time Htab n kol ESC b 
Tab_n char, ESC _£ HUL 
Set Vtab ESC b ESC e StH [Esc P ESC G5 
Tab _n lines ESC _£_SOH 
Set Left Marigin ESC 1 ESC Mt ESC M ESC 1 
Set Right Marigin ESC C ESC ESC_C 
Form Length: 
n Lines ESC C ESC C ESC C ESC C 
n_inch ESC_C NUL! ESC C NUL | ESC C NUL | ESC C NUL 
Paper width: 
64 coloums ESC B 
Bû coloums ESC E SOH ESC A 
9% coloums ESC B STX 
132 coloums ESC B ETX 
n_colaums ESC a 
[Bie Image and semi-graphiecs 
T 
5 Epson: Star: Star: Nec: Microline | Olivetti 
Epson Rx 80 DES10 Gemini - PCBO2S 80 PR2300- 
MxB0 DFS15 10 x inkt jet 
Mx 100 
Single density [ESC K ESC_k ESC + ESC _S ESC_6 
Dual density ESC L ESC L ESC L 5 
Tuadruple density Esc _Z ESC z 
Fast dual density ESC Y ESC y 
CRT Bit image ESC & EOT 
CRT II Bit image ESC x ACK 
Inverse Graphics ESC — 
Zx _zoom graphics| ESC / 
Repeat dot string) ESC V 
Senigraphics ESC n ESC 4 
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Miscellaneous 





Micraline | Olivetti 
PR2300- 
inkt jet 








Bidirectional 
uni-directional 








Skip over pert. [ESC N Esc 
cancel skip-over |ESC 0 1 o 





Logical seeking mode 
Incremental gode 

Select paper end [ESC 9 ESC 
Cancel p.e. det. |EsCa 
Select printer [DCI DCI 
Deselect printer j DC3 nd 
Reset printer ESC 2 ESC 


1 
Repeat char. n times 
ESC 


Hal? speed 
Full speed 

Select bell code 
Cancel bell code 









































Opmerkingen: 1} Alleen Epson 





UIT DE CLUBWINKEL 


BIG BENNY 


HOUDT DE TIJD BI 
PRINT INCt. IC5852 


PRIJS FL. 42. 5@a 
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TEKENEN 
18 PROGRAM TEKENEN 
ze 
30 PR2TDI ELAHTO 
4D DIM Ai200, 11090, 55 
50 
69 PROC STAP &I8 
70 PLOT 16,1, JiPLOT 14: XY 448 PROC WEGIND 
Be I=XiJ=Y 458 ICOPYCA+N „ CA+E) , CAN) 
3D PEND 4E ICOPYEBAN+E): CE+E) ; CEH+N) 
120 470 MOVE 1, JsPLOT 6 XY 
118 PROC SCHUIF GEB E=E-ZiN=eN-E 
128 P=XiQ=YiI=XiJ=Y 438 PEND 
138 PEND 508 
148 518 PROC UITTEKENEN 
150 PROC TEKEN S20 DD P=A?E:B=B7E 
IFE)S998 OR (Xe=P AND Y=D)5G.a 5I2 X=ATIEHI) FVB? LEI) 
MDVE P,GiPLOT 6, Xr Y S40 MOVE P;G5 DRAW X, Y 
INKEY T 550 E=E+2 
MDVE P;G5PLOT 6, XY 5ED UNTIL B?E=HFF 
IF T=CH"C" G.a 570 PEND 
MOVE P,BEDRANW Xs Y Seg 
A?E=PiBIE=G 590 P.SIZ"TEKENPUNT VERPLAATSEN"? 
A? 32E =Y 500 P, "MET A,S,W EN Z''" 
E=E+EI B2E=RFE SCHUIF E18 P. "Move CONTHOUDT POSITIE) "*" 
250aPEND E28 P. "Draw (CORRECTIE MET Co “'” 
269 E30 P. "VERWIJDEREN: WV EN C°” 
278 PROC VERWIJDER, N, Is Jr Xr Y E4@ IN. "GEGEVENS GELADEN" $5 
288 N=1:D0 658 E=t;CLEARG 
298 INs JBN EED IF $8="J" UITTEKENEN 
200 XZAZENH1D FY=BI INI) E70 X=0iY=OI=D: JD P=Di A0 
z10 DD KNIPPERCI, Jr X, Y) E88 
320 KEY T3UNTIL TQ EIB DD KEY Ti ?5=T5S?1=kD 
350 IF T=CH"C" WEGEN) NEN 700 CASE $5 OF 
340 NeN+2i UNTIL N=E OR T=CH", “ TABA") XeX-1 STAP 
558 PEND 7200"S") X=X+1iSTAP 
zE0 TEBUW) Yer; STAP 
370 PROC KNIPPERCI, J: X: YJ T TABL" Z") Y=Y-1:STAP 
388 MOVE I;JsPLOT &X, Y 758 (°M") SCHUIF 
298 FOR T=1 TO BSWAITEN, 7EBL'D") TEKEN 
UBV MOVE I,JIPLOT EX Y TTU YY) VERWIJDER 
418 FOR T=1 TO 6: WAITIN. 788 CEND 
ATD PEND 730 UNTIL @ 
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VOOR DE GAGBROM 


24@LX=COSRADN; ZY=SINRADN 


SREM GAGSBOX NODIG 
Z2AMOVERLIISKE+12B) „X(IIRZY+7) 


1OBASEN2D 
2@DEF SPINAA,2U000G: 1 11090000 230DRAUL (1502LX+128) „X(150RHY497 
20DEF : vaaaar (ILL Iedaa0 Zen. 
4ODEF: 00001 11001110202 258 
S5QDEF: 1920111821 t12281 260FORN=I1 TO 9D 5.15 
eBDES : 1091 BEDLODN DORI TIGCIRCLEL, IER, 97 ‚N 
7ODEF: 0108111001118: 2BON. 
BODEF: BOLBDI 1111108100 278 
GODEF: 0021000110201 DOP SBSEI:SPINAA,27,192 
189DEF SFINAB,1180111111118011 S10SET: SPINAB,77,184 
11ODEF: GELLLLULA Et LL LAS F24ASSIGN SPINAA,L 
12DDEF: ooveu1 111 11e0DE0 S3BASSIEN SPINAB,2 
130DEF: ALA 11@1H LOL IN 340H=1;V=-2 
HADDEF: BOBOO1 1 110P02P 556 
15QDEF : OO111011t1D11 102 S60FORS=1 TO 45 
16DDEF: t1eaaaor 18324011 3IASHOVEL ‚HV: SHOVE2,H,V 
17BDEF: eedeee1 Pa B022EE 3BBFORU=N TD Se5jN 
188 SON. 
19ACLEARA; NOSNOM ABAEND; PE, 
200FDRN=1 10 368 S. 50 

SPACE 


18 PROGRAM SPACE 

28 REM R. VAN DRUNEN 

20 P‚SL 

4B P‚ "se DISK MAP #4"* "INSERT DISK & PRESS RETURN"” 
SO LINK #FFEZ 

ED DIR 
709=0;P, $1Z 
SOM=RFFFF ; U 
JOL =#EDBD HE 
1GON=HS 
11OP." "ENTRIES :"N/E" ” 
EOS CHPERLD) +255 HIT 




















1ZAP, "SECTORS :"5 

16BP. 2 va sec sec tensth “* 
15BE=Ns; ZeliY=0G=0 

1EaF= 


17e 

1ED B=H'EBMSD=H! (EZ EMSW=H! CE+G) EM+LHPEE+E) /1E)*M 
19OT=CHICESEIAISIISEIHI CENT) 

SOÖR=W/ 25E IFWAZSS 0 Di ReR+1 





- blank “EF V-F!' sA=FiCete tiever 
TD Hz T-FrsFele1:G. 24D 
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2EBFOR O=0T0E 
270P. SCO? CL+END SN. 
ZEBP. T,RiD=0EP, EW 
230 A=T 5C=T+R-L 





Zi8F=C+1 

320 E=E-8: Z=Zti 
338 IFCZ+VIKIL=BILINK HEFESS ' HDE=#CREO 

34DB IFE) =056. d 

E5BrDo P." * 

3E8 UNTIL !'#DE=#SLEG: ‘#DE=! #DE-#70 

370 a=0 

258 P, "BLANK SECT ’;P. "FREE SPACE :"G/4" "G%4"/4 K" 
SIOLINK HFFEE:P. & 








i@ REM BREUKEN 


28 REM TINY VERSCHUREN 
38 @=0;P.$12" werken met breuken” 
48 P,"VOORBEELD : 1 5/4 + 2/7"" 






58 "INVOEREN ALS VOLGT :"" 
&B P,"BREUK 1" 

70 P. "GEHEEL GETAL in 

88 P. "DELER 3 

98 P‚”"NOEMER gr 
189 P.“BREUK 2" 

118 P. "GEHEEL GETAL 
128 P. “DELER 

158 P. “NGEMER 

148 P."DRUK EEN TOETS 
158aP.$12"voer de bre 
168 P."BREUK 1"'"— 
178 IN, "GEHEEL GETAL "À 






















188 IN. "DELER “B 
190 IN. "NOEMER "C 
288 P.'“BREUK 27" " 
218 IN,"”GEHEEL GETAL "D 
228 IN. "DELER "E 
238 IN, "NOEMER "E 
240 SGND; A=ABSÁ; D=ABSD 
258 

268 

278 =iaY 
20BbZ=X-YR(K/NI Gj Kez VEL 

298 IF Z G.b 


320 Y=AB5(P/X) 

318 P,$12"KLEENSTE GEMENE VEELVOUD = "YY" 

528 P.“BREUK 1 r 

33B Be (CHA4B) E(Y/C) #L 

348 P‚Axt" "B"/"C" = "(CHA+B)&L"/"C* = *G"/"YS 
358 P.“BREUK 2 :"' 

368 H=(FAD+ENECY/F) 0 

370 P.De0° "Er/rFt = "CFADAENBOY/SE" = "HT/UV" 
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388 P."1 
2 
408 P‚°5 
418cP, "4 


3,8 





P. 


= OPTELLEN*” 

= AFTREKKEN"” 

= VERMENIGVULDIGEN" 

= DELEN hd 


420 IN,"KEUZE *K 
430 IF KC1 OR K>4 P.$11;G.c 


440 
458 


IF 
IF 





X=6+H; 6d 





Y=ver; b.d 


478 IF K=4 Xe Gey; Y=Hay 


488dP. 


“TOTAAL 2" "X*/=y 


490 L=SCNX; X=ABSX; M=; N=Y 


SOBeZ=X-Ve X/Y); X=Y; 





518 IF 7 6.e 

520 I=M/X; J=N/X 

530 IF Xi P‚* = “Tel "fwg 
540 IF IXJ G.g 

550 S=1/J;T=l-GeJ 


360 P‚* = “Sal *;IF T=D G.q 
578 P‚ Te 1 
S80gP. 


SIOhIN. "WILT U NOG MEER <J/N> “sv 


808 IF $verje G,a 
618 IF $Ve"N* G,4 
628 P.$11;6.h 


63BIP.$12''''""" SUCCES VERDER, EN TOT ZIENS. * 


18 
20 
28 
48 
50 
4 
7B 
88 
98 
108 
119 
128 
15e 


REN 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
BEM 
REM 
REM 
REN 
REM 


KALENDER 


KEENBEANEREREENK ER KANE 
« + 
“KALENDER zer 
#* NAAR EEN PROGRAMMA 
* VAN JOS NEERPELT IN 
* 'HOBKIT,DEC. 1982 

* BEWERKT VOOR ACORN 
* DOOR G.DE GRAAF 
* CEINTUURBAAN 70 
* 1485AD BUSSUM 


meen 


» 


BRRRERRUERREENEK ERE ELEN 
SUFER-BASIC IN VOETJE 2 


140°$RFFF=2;LINKHAFUA 


1SODIMG E21) ‚NC124) „0479 „UCL3), 120 ,OC1) 











168605. 720 
LIOEN=CEN+804SU1 
18OP,'" "WENST U DE KALENDER VAN EEN BEPAALD” 
190P. “JAAR NA 1582, DRUK DAN EEN TOETS IN.“ 
ZOOP. '" "VAN WELK JAAR WENST U EEN KALENDER"; IN. J 
2201F J415826. 760 
ZOP.$12; Des M=lsS=t12 
240.812” tte KALENDER tante 
258GOS.810 ;P." JANUARI “J" "‘;G05.578 ;GOS.580 ;P.* 
260J=J+1 
278G0S.B18 ;P." FEBRUARI "Je "sm 
2801=Jx4 


290IF T=05=106;G. 310 
ROG= 102 
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518608.57B ;605.588 ;P." ** 

320J=J+t 

336605.818 ;P," MAART “J“ "';M=3;5=112;G05.570 ;605. 580 

340P," "7 

350605. 778 

Z60G0S.818 ;P." APRIL * 

z7op.” ** 

388GDS. 810; P." MEI "J" "‘sM=5;5=112; 605.570 ; 605. 500 

39aP.” *” 

488GOS.818;P." JUNI "JJ" *“;M=6}5=109;605.578 ; GOS. 580 

81BP." “7 

429605. 770 

438G0S.B18 ;P." JULI" J" *";M=7;5=112; 505.570 ;605. 580 

480P," *" 

45060S.818 ; 

440605. 580 ; 
} 





";M=4;5=109;60S.570 ;G0S. 589 


Pp." AUGUSTUS "J" "';M=B;S=112;605, 570 


„"BEFTEMBER "J" "'jM=9;S=109; 608.578 





478605.818 
488G0S. 580 
490605. 770 
SOLGOS.EIG ;P.* OKTOBER “J" "';M=10;S=112; 608.570 
518605.580 ;P." "7 

520G0S.818:P." NOVEMBER "J""'zM=ll;5=189; 605.570 
538G0S.588 ;P." *' 

S40G0S.B18 ;P DECEMBER *J""'}M=12;}8=112; 608.570 
550605.588 ;P." "° 

S&BEND 

570.” „MA.DI.WO.DD.VR. ZA. ZO "'3R. 
5BOA=(JA565) +D+514 (MI) 

59DIF MCZG.610 

LODA=A-L(,AAM+2, 5) 16.620 

=1 

HLUI/AN U TER AALJ/1BED) 
GIBE=F- (744 (FLJ) 

BADIF E{2E=E+5;6. 660 

6SBE=E-2 

&&0L=19-54E 

679F.X=t TG S 5,21 









68DY=21 

49DIFA+2IPE YeS-X 

788P.* PMIDS(SN,X,Y)," 7" 
710N . 








annen err veeer deelen dee de 5e vbn 
5.24 


730$0=".15.14,15.16,17.18,19.20.21,22,25. 24,25. 
7aBsu=". 29,30. Zl..." 

750R. 

7&BP.SI"VERKEERD JAAR! IE!" 

772P.S2"WENST U HET VOLGENDE TRIMESTER J/N 2"; IN. $0 
7801F$0="J"G, 888 

79E. 

BOAR. 

818P,TAB(IS) ;R. 

859 REM OM DE KALENDER OP PAPIER 

849 REM TE PRINTEN MOETEN DE VOLGENDE 

858 REM REGELS TOEGEVOEGD WORDEN, 

868 REM ALTHANS VOOR EEN MICROLINE 80 

878 REM 218 P‚s2 Of $2429 OF $2431 

880 REM 765 P‚,$2 

BIB REN 715 P.$2 
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BRAILLE 


1BI4HFFF=2;LINKMAFOA;REM AAN-ROEP SUPER-BASIC 
I2REM ALS JE DEZE NIET BEZIT 

I3KEN DAN REGEL 18 WEGLATEN 

14REM EN DE REGELS 700 T*M 750 

ISREM VERANDEREN IN BIJV,P.$7 

20 P.$12;°#E1=D 

30 F. "BRAILLE-TRAINER" 













4e Pp 

SO PF." “EERST EEN KLEINE TOELICHTING DP*' 
68 F,"HET BRATLLE-FROGRAMMA, ©" 

7A P,"EFAILLE IS HET SCHRIFT DAT DDOR“* 
88 F."BLINDEN WORDT GEBRUIKT, *" 


GBF, "ELKE LETTER BESTAAT UIT EEN COM-"' 

180 F."KINATIE „AN TEN HOOGSTE 6 PUNTEN."'’ "druk toets” 
119 L 
120 
Lof 
14B Ft ee 
158 : 
188F. "druk 
17DE. 

188 F.* meoten Ct eDET IS HET CIJFERTEKEN, "” 
199 F.”HET GETAL 1 IS HET CIJFERTEKEN + A‚*° 

240 P. “HET GETAL 2 IS RET CIJFERIEKEN + B,"'” 

Zië P. "HET GETAL 83 BIJV. WORDT 


220 et wen 





AFFEZ 
““ALS VOLGT GRAKBSCHIKT 











oen PSLISLES za“ 
ern P$IISLI® =B7' "7 
“sE HFFES 








225P,” "$IISIJSIL CIJFERTEKEN +H +C*” 


2251 
23BF. "druk toets" ';LI.#FFEZ 
24BP, CT 

EESTEKENS: ""* 





A 

"JE FUNT NU HET ALFABET OEFENEN. ”" 

“DE GELUIDJES HEEREN SLECHTS "' 

294F, "LUDIEKE (SPEELSE) WAAFDE, "'” 

200 F‚1=170 68: WAIT:N. 
ZIODSMAI,B1,CI,DI,EL,FL,Gi. HI, It 

ZIBOEM IL HA LEME HI, OPP SOLIST 
ZIODIATI UI, VII AI, YI, ZI 

240 F.321 

350 FrkeD:(;LDAGET: STANZOE: LDAE254; STAR20F; FTS; J 
368 Z-8FEG4DBED; ' #208-Z 

37OF. 1-8 TP. SIN. P.89 

ZEP. 36 

290 iN, $A 

40QF 4122888114 
RIOIFSA="A" 








420 IF ” Sa; GOS.b 
CMT : 605. a: G05.d 

440 IF A: 05. 3:605.d; GOS.e 

450 IF me K QS. 4;G0S.e 

460 if vre QS. a; 605. D; GOS. d 

476 1e nee 05. 24605. b;60S.d; GOS.e 
480 ie " $60S, 2: 608,5; G0S.e 





kÂT, 
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A90 IF $A="[*P," "17e" #' "4608. d;GDS.b 

500 AA 0S.b; GDS. d; 608 .e 

s18 “";60S. a; 608.c 

520 enen “;G0S. a; GS.b; 608. c 

535 " “;60S. 2; 608. c; GOS. d 

540 oeren w°;60S.a; 608. Cc; GOS. d; GOS.e 
550 mee vera er 14608. 2; 608. c; GOS. e 

569 en “«-;60S. a; 50S.b; 603. c; 605. d 
SIQIFSA="B"P tt een en “1 -$605. a; BOS. b; GDS. c; SDS. d; EOS. e 
588 epen en “ouw -;60S. a; 608. b; 608. c; 605. e 
590 mmrer wees «°1;608.b;60S.c;GO5.d 

600 mn :605.b; GOS. c: 605. d;GOS.e 
618 menen ;60S. a; 605. c; GOS. f 

620 Ik “en -7$60S. a; GOS. b; GOS. c4 GOS. f 
630 “ ;605.b; 605. d: BOS. e: GOS. f 
640 = A: } GOS. a; 60S.c; 508. d; GOS. f 
GSDIFSA="Y"P LN" ;605, a; GOS. c; GOS. d; GOS. e; GOS. 4 
b6B IF SA="I"P,"" '”''460S, 25608. c; GOS. #; 605. # 
BIBIFSA=" IP." “;605.9;G0S.a 
BTLIFSA=" ZP See “4605. 9; GOS. a; BOS. b 
EI2IFSA=" EP" »-;60S. 9; BOS. a; BOS. d 








BIZIFSA="A"P Nt 
674 IF$A="4"GOS.e 
6806. 340 

685 N. 

&IBEND 

7OBABEEP2DS, 13; R. 
710DBEEP1BS, 13; R. 
720cBEEP137, 15; R. 
730dBEEP1D2, 13; R 
74DeREEFBN ,133K 
75OBEEPLE ,13:R. 
751gBEEP205, 34 BEEPLB3, 3; BEEP165,3; BEEP154,3 
752F. 1=1TO3B3WAETGN. GR. 

740 REN : 

761 REM : B.de BRAAF 

762 REM : _ CEINTUURBAAN 78 
763 REM : _ 1403AD BUSSUM 
764 REM —--eevenennne 


608,9: 605. a; GOS. d 





TEMPERATUUR 


18 PROGRAM TEMPERATUUR 
ze 
58 REM TINY VERSCHUREN 


49 

50 DIMS3 

EB $S="DANK U" 
78 


29 PROC MENU :A) 
8 P.siet 
109 HTABS:P. "WELKE WAARDE IS BEKEND"! "" 





118 HTABG;P. “CELCIUS ger 
128 HTABE:P, “REAUMUR zet 
138 HTABE:P, "FARHENHEIT zer 


140 HTABE:P. "KELVEN = Geert 
158 HTABS:IN, "KEUZE "A 

168 IF A{l OR AP4:P,$113G. 159 

170 PEND 
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189 
198 
208 
218 
220 
238 
240 
250 
268 
278 
280 
238 
3200 
318 
520 
258 
340 
358 
369 
570 
Sen 
590 
408 
410 
428 
430 
448 
458 
450 
478 
458 
499 
508 
518 
520 
520 
548 
558 
SE 
570 
588 
520 
E03 
E15 
E83 
€20 
E4G 


758 
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PROC CELSIUS 


FIN. "CELCIUS “XC 
KR=G/SAKC HFD SHRCHELI AKE LCH27S 
PEND 

PROC REAUMUR 


FIN, "RERAUMUR "XR 
AC=5/ GKARS KFSI/GAKRHELI KK S/ GHARH27T 
PEND 


PROC FAHRENHEIT 

FIN, “FARHENHEIT "XF 

KC=S/ IK CAF-ED) HAREG/ DHA TE) AKE5/IKAFHZSS. 2 
PEND 


PROC KELVIN 

FIN, “KECVIN "XK 
KCELK-ZTEIKR=A/ SH LAK-Z7E) $AF=B/ SHA ZES. 2) 
PEND 


PROC FIXPRIAV): Ds V 

Ver CAV#1R0HSCNAV AD. 5) 

XIF V{B AND V>-108:P. ” =D" 
ELSE P. V/102 
D=05V=ABSVK1BAIP, “. "V/1D, VL1D 
PEND 


REM MAIN PROGRAM 


Do 

MENU CK) 

P‚$12''* _ VUL DE WAARDE IN GRADEN IN” ;HTAE1O 
CASE K OF 

CI) CELSIUS 

(2) RERUMUR 

CE) FAHRENHEIT 

4) KELVIN 





"ONDERSTAANDE WAARDEN ZIJN GELIJK""?? 


FIXPREXC):P. " GRADEN CELSIUS" " 
FIXPREXRI;P, " GRADEN REAUMUR"' * 
FIXPRLAF) :P. " GRADEN FAHRENHEIT" " 
FIXPROAKO IP." GRADEN KELVIN"'” 
INKEY A 

UNTIL A=CH"E"5P, $12 





VTAELL) ;HTABELD +P, $5°k 
N. 
END 
P.S, ALS MEN EEN VEELZIJDIGER 


FIKPRINT WIL MET WILLEKEURIG 
ARNTAL POSITIES ACHTER DE KOMMA, 
ONDERDRUKKING VAN ONINTERESSANTE 
NULLEN EN NORMAAL GEBRUIK VAN &, 
DAN GEBRUIKE MEN ONDERSTAANDE 
PROCEDURE. 


hd 
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7E 
770 PROC FIXPRCAX, FD: Ds Z 
JE B=D-F-liF=ACLOF+D. 5) sAKAX+D, 5/ F*SON%X 
790 FIFAXX(QEIFAK)-1sFORZ=ITD B-ZiP," “iN. :P. "B. "56. a 
8009 PAX," 
B1Da ZAL ABSCHK HAAK HFD 
820 A=1;DOF=F/ADP. Z/F 3 Zelf U. 220 
828 IFF>1:DOP,“ “sF=F/1OtU, F=l 
E40 PEND 


188 PROGRAM PNAGRAM 

Hd 

128 PROC EXCHANGE CAT), B 

138 B=T?X 

148 T?X=T 

159 TE 

168 PEND 

178 

188 PROC COMBINAT IONS(S) , LN 
198 FOR I=1 TO LENS) 
20 Mat 

218 D0 

228 EXCHANGE (N,5) 
20 Mel 

240 _ PRINTSS' 

258 UNTIL MELEN(S) 
268 NEXTI 

270 PEND 

258 

230 PROC ENTRY, H 

388 PRINTEI2" 

38 PRINT * 

328 H=k6A0B 

ZI INFUT“ENTER STRING 2"SH 
RE] 
358 COMBINATLONS CH) 
360 PEND 

518 

IED REN MAIN PROGRAK 
330 ENTRY 

ú28 END 

410 


ANBGRHS"* 


ANAGRAM 


PRINT’ ' "POSSIBLE CONBINATIONS ARE 21°" 


420 Prosrauma in P-charme on alle lettercogbinaties vit 
4IB een ingevoerde strins samen te stellen 


AAD E. Snelgers 
ASB Wel naak 55 
&6@ 9932 BK Dettz is! 


VANACRAM 
ANAGRANS 


ENTER STRING :2AT0M 


POSSIBLE COMEINATIONG ARE : 


TAN 
ORTE 
KATO 
ATO 
TRAD 
OAT 
Moar 
BONT 
TOrâ 
OTM 
MOR 
ATO 
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In Acorn Nieuws 2 van 1984 plaatsten wij een overzicht van verschenen 
literatuur over de Atoa. Onlangs is er bij uitgeversaij Elektuur B.V. een boek je 
verschenen dat ook in genoemd overzicht thuis hoort. Oadat het werkje aijzelf 
erg aansprak wil ik hier graag een overzicht geven van de inhoud. 





PROGRAMMA'S VOOR DE ACORN ATOM 
(Ertk Spin & Klaus Siol) 
Het boek is verdeeld in vier hoofdstukken en heeft drie appendices. Ik zat elk 
kort beschrijven. 


* Progranaa's 

Dit beslaat het grootste deel van het boek. Er worden hierin achttien listings 
van voornaselijk spelletjes gegeven. Elk is voorzien van een uitgebreide uitleg 
van de werking. (Als atle copy voor Acorn Nieuws zo goed gedocumenteerd mas … 
De prograaaa's zijn gerangschikt naar oplopende moeilijkheidsgraad, Vaak worden 
ook de in vorige programma's besproken routines weer benut. Het voord: 
duidelijk, er kan op die mannier een taaelijk cosplex prograama worden gebouwd 
zonder dat de iets minder ver gevorderden onder ons behoeven af te haken. Een 
voorbeeld van de werkwijze is het volgende: 

Er wordt begonnen met uitleg te geven over de werking van de standaard 
plotroutines. Vervolgens wordt er met behulp daarvan een soort spríitehandier 
gemaakt. En tenslotte maken het grootste deel van de verdere progr « gebruik 
van deze software. Zo leer je ongemerkt heel wat over de grafische mogelijkheden 
van de Atom. 








* Grapjes ast graphics 
Kierin vinden we voornamelijk korte listings. Voorbeelden zijn: een stippellijn 
routine, een fraaie explosie en een logarithmische schaal. 


* Tips 

Dit is ook een zeer interressant hoofdstukje. Veel van de prograaaa’s hierin 
hebben te maken zet het veranderen van OSvectoran. In contrast set het eerste 
hoofdstuk: gaat het hier om utility's. De in dit hoofdstuk verwerkte informatie 
is trouwens ook niet wis. Wat bijvoorbeeld te denken van het volgende: 

“N.B. Het is door de PTT niet toegestaan je coaputer zonder tussenkoast van een 
maden art het telefoonnet te verbinden, Je mag dus niet: 

= de audio-uitgang van je computer met het gele draadje verbinden 

= de ingang art blauw verbinden 

—= uassa set groen verbinden”. 


* Oneliners 

Dit kleine hoofdstukje bevat een eenentwintigtal oneliners. Er zijn 
bijvoorbeeld: het spettetje YIP, een deciaaal binair converter, een ESP tester 
en een prograssma dat een Fibonacci-reeks berekent. Daar hed ík trouwens nog 
nooit van gehoord, Misschien kan een van onze ‘wiskundigen’ mij evan vit de 
drooa helpen voor wat betreft de toepassingen van deze reeks. 





® Afkortingen 
* Kexadecinaeì decieaal conversie tabel 
Gok deze beiden spreken voor zich. 


Al met al een waardige uitbreiding van de Aton-literatuurlijst volgens aij. 
tte besteiien door overaaking van #.29,58 + #3,50 verzendkosten op giro 1241100 
tun.v. Elektuur B.V, onder veraalding van de titel v.h, boekje.) 


